@hash_guts = (
   undef,
   undef,
   undef,
   [ $bla_node, $foo_node ],
   [ $bar_node            ],
   undef,
   undef,
);

##</code><code>##

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

##</code><code>##

@hash1_guts = (  # scalar(%hash1) is 2/8
   undef,
   [ $node1 ],
   undef,
   undef,
   undef,
   undef,
   [ $node2, $node3, $node4, $node5, $node6, $node7 ],
   undef,
);

@hash2_guts = (  # scalar(%hash2) is 6/8
   [ $node1 ],
   [ $node2 ],
   [ $node3 ],
   [ $node4, $node5 ],
   [ $node6 ],
   undef,
   undef,
   [ $node7 ],
);

##</code><code>##

@hash2_guts = (  # scalar(%hash2) is now 7/16
   [ $node1 ],
   undef,
   [ $node2 ],
   undef,
   [ $node3 ],
   undef,
   [ $node4, $node5 ],
   undef,
   [ $node6 ],
   undef,
   undef,
   undef,
   undef,
   [ $node8 ],
   [ $node7 ],
   undef,
);