use Quantum::Superpositions; if ( $var == any(1 .. 5) ) {