use Quantum::Superpositions; if ($item3 eq any($item1, $item2)) { ... }