How about

while (my ($key, $value) = each %hash) {...}
[download]

See each for details. The example is directly from the documentation.