Select Code to Download

my %hash = (1 => 2, 3 => 4);
my $ref = \%hash;
...
print "hash = ", %hash, "\n";
print "ref hash = ", %$ref, "\n";
print "alias hash = ", %$alias, "\n";

hash = 1234
ref hash = 1234
alias hash = 1234