Select Code to Download

@hash_guts = (
   undef,
...
   undef,
   undef,
);

bless([$key, $val], Node)

@hash1_guts = (  # scalar(%hash1) is 2/8
   undef,
...
   undef,
   [ $node7 ],
);

@hash2_guts = (  # scalar(%hash2) is now 7/16
   [ $node1 ],
...
   [ $node7 ],
   undef,
);