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