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