use Perl6::Junction qw(any); if (any(qw(a b c)) eq $question) { #... }