while (my ($key, $value) = each(%h)) {
}