use Quantum::Superpositions; if ($x == any($a, $b, $c)) { ... }