Help for this page
sub f { my ($r) = @_; ... my $rh; f($rh->{level1}{level2});
rh->{level1}{level2}){level3} = 1;
f(\$rh->{level1}{level2}->%*);