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

##</code><code>##

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