my $very_deep_nested = $very->{deeply}{nested};
$very_deeply_nested->{hash} = $something
   unless exists $very_deeply_nested->{hash};