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