Select Code to Download

#!/usr/local/bin/perl -w

...
  $existing_records{$surname}{$name} 
  
}

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;