foreach (keys %hash) {print "$_ => $hash{$_}\n";}