my %hash;
for my $key (@array2){
  $hash{$key}++;
}

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

##</code><code>##

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

##</code><code>##

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