say (exists $fs4->{_structure}{'/Users/dotfiles/perl5/my_modules'}{BLAH}{Crap}); # BLAH and its parent do not exist d $fs4; # dumps the object #### ### Dump from: 01-FSO_basic.t line: 35 $VAR1 = { '/Users/dotfiles/perl5/my_modules' => { 'BLAH' => {} }, #### perl -MData::Dump -E ' my $fs4 = {'_structure' => {}}; exists $fs4->{_structure}{BLAH}{TEST}{Crap}; dd $fs4->{_structure} '