my $array1_size = scalar(@array1);
my $array2_size = scalar(@array2);

for(my $i = $array1_size; $i > 0 ; $i--) {
    for (my $j = $array2_size; $j > 0 ; $j--) {
       if ($array1[$i] eq $array2[$j]){
           pop @array1;
           pop @array2;
           $j--;
           $i--;
           $array1_size--;
           $array2_size--;
       }
    }
}