Select Code to Download

my @list = ( 41888, 41889, 41890, 41892, 41895 );

...
    delete @missing{ @list };
    keys %missing;
};

my @missing;
{
...
        push @missing, $_;
    }
}

my @missing = do {
    my $i = 0;
    grep { $_ == $list[ $i ] ? ++$i && 0 : 1 } $list[ 0 ] .. $list[ -1
+ ];
};