$ perl -MData::Dumper -e'$h{notexist}{baz}; print Dumper \%h' $VAR1 = { 'notexist' => {} };