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