DB<1> $a{foo}->{bar} = "zoikes" DB<2> print "yup\n" if exists $a{foo} yup DB<3> print "yup\n" if exists $a{foo}->{bar} yup DB<4> print "yup\n" if exists $a{foo}->{baz} DB<5> print "yup\n" if exists $a{foo} && exists $a{foo}->{bar} yup DB<6> print "yup\n" if exists $a{foo} && exists $a{foo}->{baz} DB<7>