chomp @matched;
foreach my $match (@matched) {
    my @record = split(/,/, $match);
        
    my ($lname, $fname) = split(/\s+/, uc($record[5]));
    my $name = "$lname " . substr($fname, 0, 2);    

    if (my ($first_matched) = grep /$name/, @phoneBook) {
        my @line = split /,/, $first_matched;

        print RESULTS "$record[0],UNKNOWN,$record[$#record],SLC,";
        print RESULTS "$line[$_]," for (0 .. 4);
        print RESULTS "$name\n";
    } else {
        print UNMATCHED "$record[$_]," for (0,5,7,2,3,4);
        print UNMATCHED "UNKNOWN,\\N,\\N\n";
    }
}