Scripting >> Perl >> How to loop thru a hash given its hash reference

eg. given $hash foreach $k (keys %{$hash}) { print $k; }