The problem can be avoided by calling keys before each.

keys %$ht;  # Reset iterator
while (my ($key, $value) = each(%$ht)) {
[download]

Update: Checked source to make sure it's efficient. Yes it is. It doesn't enumerate the keys at all in void context.