perl -MData::Dumper -e 'my %h; print "yes\n" if exists $h{d}{j}; print Dumper \%h;'
$VAR1 = {
          'd' => {}
        };