use Quantum::Superpositions;
$vergleich = 4;
if ($vergleich == any(3,4,14,43)) { ist drin }