A) if ( $question eq 'a' || $question eq 'b' || $question eq 'c' )

B) if ( grep m/$question/, qw/a b c/ )

update
I figured I would add this is solved in perl6 also.