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