use Quantum::Superpositions;
if ($sum ne any(1, 2, 3, 4)) { ... }