@matched = sort @matched;
@phoneBook = sort @phoneBook;

foreach (@phoneBook) {
	@fields = split(',', $_);
	my $fullname = $fields[0];
	$fullname =~ tr/[()]//d;
	$fullname =~ s/\s+/ /;

	foreach (@matched) {
		my  @record = split(',', $_);
		my $lic = $record[$#record];
		chomp($lic);
		
		my ($lname, $fname) = split('\s+', $record[5]);
		my $firstn = substr($fname, 0, 2);
		my $name = "$lname " . "$firstn";
		$name =~ tr/[a-z]/A-Z/;

		if (defined $fullname =~ m/$name/g) {
			print RESULTS "$record[0],UNKNOWN,$lic,$fullname,$fields[1],$fields[2],$fields[3]\n";
		}
	}
}