foreach ((my $key, my $value) = each %hash) {
    print $key, "\n";
}