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