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