Select Code to Download

Q:\>perl -w tmp.pl
Global symbol "%myHash" requires explicit package name at tmp.pl line 
+4.
...
while ( my ($key, $value) = each(%myHash) ) {
print "From myHash --> $key => $value\n";
}