my @array1 = qw(a b c e);
my @array2 = qw(a b c d);

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

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

##</code><code>##

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