Select Code to Download

my $y = {};
my $x = { a => { b => { c => $y } } };
$y->{ d } = $x->{ a };
$y->{ e } = 1;

package Bob;

...

print Dumper $y;
print Dumper $obj->list($x);