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