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