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