my %contacts;
while (<FILE1>){
    my ($person, $trash) = split(/\s/, $_, 2);
    $contacts{$person} = 0;
}

##</code><code>##

while (<CONTACT>){
    my ($person, $extra) = split(/\s/, $_, 2);
    print FILE3 "$person\t$extra" unless exists $contacts{$person};
}