my @matches = grep { /$pattern/ } @names;

##</code><code>##

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