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