open OUTPUT, ">names.csv" or die "Hcrelb: $!\n";
foreach my $surname (keys %existing_names) {
   print OUTPUT "$_,$surname\n" for keys %{$existing_names{$surname}};
}
close OUTPUT;