$first = shift@ARGV;
$second = shift@ARGV;

open (IN, "<$first");
open (IN2, "<$second");
open (OUT, ">NACCESS");


%naccess = map { /^\s+\S+\s+\S+\s+(\S+)/; ($1 => $_) } <IN2>;

close (IN2);

while (<IN>) {

chomp;

/^\s+(\S+)/;
print OUT ($1) unless (exists($naccess{$1}));
        }
close (IN);

##</code><code>##

   1    59    49   0.0    0    100.0    0.0
   1    60    50   0.0    0    100.0    0.0

##</code><code>##

   112  104.35  141.94  
   115   22.34   29.13