my %questions;
undef @questions{ 'a', 'b', 'c' };

# and then

if( exists $questions{ $question } ) {
    # ...
}