my @matches = grep { $names[$_] =~ /$pattern/ || 
   $desc[$_] =~/$pattern/ } 
    0 .. $#names;
##</code><code>##

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