Scripting >> Perl >>  How to loop through a hash given it's hash reference

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