sub in { my $val = shift; $val == $_ and return 1 for $_; return; } in $question, ($a, $b, $c);