Select Code to Download

%matches = ( name=>[1, 3,5,6,9],
      desc=>[2,6,7]
 );

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

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