Select Code to Download

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

# once:
my %lookup;
...
# many times:
my $search = 'boo';
$where = $lookup{$search};