#!/usr/bin/perl
use strict;
use warnings;

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