while (($key, $value) = each %hash) {
    print $key, "\n";
}
[download]

               After "each" has returned all entries from the hash or array,
               the next call to "each" returns the empty list in list context
               and "undef" in scalar context.  The next call following that
               one restarts iteration.