while (my ($k,$v) = each %hash)

##</code><code>##

for (keys %hash)