use Quantum::Superpositions;

$test = 7;

if ($test == any(7, 5, 3)) {
        print "\$test is ",any(7, 5, 3),"\n";
}
__OUTPUT__
$test is any(3,7,5)