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