use Quantum::Superpositions;

my @arr1= qw (two two three five four six six six seven);
my @arr2= qw (one one three four bee seven eight six);

my @intersection = eigenstates(any(@arr1) eq any(@arr2));

print "There are ",scalar(@intersection)," common elements\n";
print "Values: @intersection\n";