It may be overkill, but Quantum::Superpositions allows you to do e.g.

use Quantum::Superpositions;

if ($x == any(qw(1 2 3 5 7 9 11)))
{
   print "small Prime\n";
}
[download]

which IMHO is nice and readable.
--
Brovnik