Select Code to Download

use Quantum::Superpositions;

...
my @array2 = qw( 83 140 );

my @filtered = grep all(@array2) != $_, @array1;

foreach my $i (0 .. $#array1) {
    $array1[$i] == $_ and delete $array1[$i]
        foreach @array2;
}
my @filtered = grep defined, @array1;