in reply to writing perl function like sql IN
use Quantum::Superpositions; my $x = 7; print "ok!\n" if $x == any(1,3,7); [download]