use Quantum::Superpositions;

        if ($x == any($a, $b, $c)) { ...  }

##</code><code>##

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)