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

##</code><code>##

use Quantum::Superpositions;
use strict;
use warnings;

my @array1 = (1,2,3,4,5,6,7,8,9,10);
my @array2 = (2,6,7,8,5);

foreach ( @array2 ) {
 die "$_ not found in ARRAY1" unless $_ == any(@array1);
}

print "found all of them\n";

##</code><code>##

use strict;
use warnings;

my @array1 = (1,2,3,4,5,6,7,8,9,10);
my @array2 = (10,9,8,7,6,5,4,3);

die "Nope not all there\n" if ( any(@array2) !=  all(@array1) );
print "found all of them\n";