...
open (info, "<npn.txt");
chomp (@contents = (<info>));
close info;


$record = $_."~";
@flds = split(/\,/, $record);

if (grep !/^$flds[1]/, @contents) {
 
  print $record;
}
' >hi5res.txt