use strict;
use warnings;

#USING A HASH TO CHECK IF ALL OF ARRAY2 IS IN ARRAY1
my @array1 = (1,2,3,4,5);
my @array2 = (1,3,4,5);

my %hash;
@hash{@array1} = ();

foreach (@array2) {
 unless ( exists $hash{$_} ) {
   die "Array1 does not contain $_\n"
 }
}

print "Yup they are all there\n";