Select Code to Download

foreach my $surname (keys %data) {
   my $family = $data{$surname};
...
      print("$given $surname\n");
   }
}