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