Select Code to Download

use strict;

...
print "\nFirst nested hash address: $first{'foo'}\n";
print "Second nexted hash address: $second{'foo'}\n";

First hash:
$VAR1 = {
...

First nested hash address: HASH(0x804ee40)
Second nexted hash address: HASH(0x804ee40)