sub f { my ($r) = @_; $r->{level3} = 1; } my $rh; f($rh->{level1}{level2});