while (my ($k,$v) = each %h) { ... }