11111111
10001781
11111222 

##</code><code>##

abc,,,, 
abc,10001781,,,
abc,10001782,,, 
abd,10001783,,, 

##</code><code>##

abc,,,, 
abc,10001782,,, 
abd,10001783,,, 

##</code><code>##

abc,10001781,,, 
abc,10001782,,, 
abd,10001783,,, 

##</code><code>##

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


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

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