foreach my $key (keys %hash){
  print "$key => $hash{$key}\n";
}
# or shorter:
foreach (keys %hash){
  print "$_ => $hash{$_}\n";
}

##</code><code>##

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