Replace your grep line with this:

my @matches = grep { $names[$i] =~ /$pattern/ } 0 .. $#names;
[download]

--
<http://www.dave.org.uk>

"Perl makes the fun jobs fun
and the boring jobs bearable" - me