while (my ($key, $value) = each %hash) {
  #...process $key, $value...
}