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)";
  }
}