$ perl -e 'use Data::Dump; exists $a->{foo}{bar}; dd $a;'
{ foo => {} }
$ perl -e 'use Data::Dump; defined $a->{foo}{bar}; dd $a;'
{ foo => {} }