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

close (IN2);

while (<IN>) {

chomp;

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

        }