my %hash;
my $x = \%hash;
my $y = \%hash;

print "($x) [$y]\n";