use XYZ qw(%Hash1 %Hash2);

##</code><code>##

print "$_ => $Hash1{$_}\n" for keys %Hash1;