for my $key (keys %$valid_names) {
  print "key: $key\n";
  print "  name: $valid_names->{$key}{name}\n";
  print "  email: $valid_names->{$key}{email}\n";
}