grep returns all matching indexes, I just ignored all but the first one. That's easily fixed:

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

Using a hash for lookup is a not so dead simple adaptation, but still feasible. In the meantime, wfsp has shown how it can be done.