my $search = 'foo';
my ($where) = grep { $question[$_] eq $search } 0 .. $#question;

##</code><code>##

# once:
my %lookup;
@lookup{@question} = ( 0 .. $#question );
# many times:
my $search = 'boo';
$where = $lookup{$search};