Select Code to Download

use strict;

...
my @b = (2,3,13,14,17);

@a = do{my %i; undef @i{@a}; delete @i{@b}; sort {$a<=>$b} keys %i};

use strict;
...
    (grep /^$i$/, @b) ? () : $i ;
    }@a;