while ( ($key, $value) = each %hash ) {
  print "$key => $value\n";
}