Here's an example that consumes all my memory at least:
perl -e 'use strict; my $a = { child1 => [ {child2 => [ { child3 => [ {child4 => [ 1 ] } ] } ] } ] }; print $a->{child1}{child2}{child3}{child4}, "\n"'