Select Code to Download

my @array1 = qw(a b c e);
my @array2 = qw(a b c d);
...
for my $key (@array1) {
    print "Fail: $key\n" unless $hash{$key};
}

for my $key (@array1) {
    print "Fail: array1 element is $key, array2 element is $hash{$key}
+\n" unless $hash{$key};
}