for my $key ( keys %hash ) {
  print $key, "\n";
}