in reply to Too much SQL not enough perl

Lots of valid solutions proposed above, here's how it looks with Perl6::Junction: 
use Perl6::Junction qw(any);

if (any(qw(a b c)) eq $question) {
    #...
}

[download]

In Section Seekers of Perl Wisdom