my @where = grep { $question[$_] eq $search } 0 .. $#question;