use strict; use warnings; use Quantum::Superpositions; my @array_1 = ('x', 'y', 'z'); my @array_2 = ('v', 'w', 'x'); my @array_3 = eigenstates( any(@array_1) eq any(@array_2) );