Help for this page
Select Code to Download
Select
or
download this
use XYZ qw(%Hash1 %Hash2);
Select
or
download this
print "$_ => $Hash1{$_}\n" for keys %Hash1;