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