Select Code to Download

... grep {print STDERR "\$_: $_\n"; $_ eq $arrList[2]} @list_match

while(my $line = <INPUT>){
 chomp($line);
 ...