use Quantum::Superpositions;
my $x = 7;
print "ok!\n" if $x == any(1,3,7);