Examples:
1)
#Program:
my($x) = { 'a' => { 'a' => [ 'a', 'b', 'c', ],
'b' => 9,
'c' => 10, },
'b' => 'asdf',
'c' => [ 45, 56, 67, ], };
print "\$x->" . &reference_tree_string($x, "\$x->");
#Output: $x->{ 'a' => { 'a' => [ a, #0 b, #1 c, ], 'b' => 9, 'c' => 10, }, 'b' => asdf, 'c' => [ 45, #0 56, #1 67, ], }
2)
#Program:
my($x) = { 'a' => { 'a' => [ 'a', 'b', 'c', ],
'b' => 9,
'c' => 10, },
'b' => 'asdf',
'c' => [ 45, 56, 67, ], };
print "\$x->" . &reference_tree_string($x);
#Output: $x->{ 'a' => { 'a' => [ a, #0 b, #1 c, ], 'b' => 9, 'c' => 10, }, 'b' => asdf, 'c' => [ 45, #0 56, #1 67, ], }