Select Code to Download

my %hash;
for my $key (@array2){
...
for my $key (@array1){
  print "Fail: %key \n" unless $hash{$key};
}

for my $key (@array2){
  $hash{$key}++
  print "Fail $key" unless grep($key, @array1);
}

my $hash;
while (@array1){
...
    print "Key mismatch array1 value $var1 != $var2 (array2 value)";
  }
}