while (<IN>) {
chomp;

/^\s+(\S+)/;

push @array, $1;

             }
close (IN);


foreach $line (@array) {
chomp;

print "$line\n";

foreach $line2 (<IN2>) {

$line2  =~/^\s+\S+\s+\S+\s+(\S+)/;


if ($line == $1) {remove line};


}

}