print "1st run\n" if exists $a{a}; print "2nd run\n" if exists $a{a}{b}{c}; print "3rd run\n" if exists $a{a}; # prints 3rd run