each func

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