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