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