Select Code to Download

if( grep $question eq $_, 'a', 'b' 'c' ) {
    # ...
}

my %questions;
undef @questions{ 'a', 'b', 'c' };
...
if( exists $questions{ $question } ) {
    # ...
}