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