DB<1> $h{a}{b}{c} = 2; 
 
  DB<2> print "foo" if defined $h{d}{e}{f} ; 
 
  DB<3> print "foo" if $h{g} && $h{g}{h} && $h{g}{h}{i}; 
 
  DB<4> x \%h; 
0  HASH(0x600500b60) 
   'a' => HASH(0x600509d30) 
      'b' => HASH(0x600500a88) 
         'c' => 2 
   'd' => HASH(0x600500c38) 
      'e' => HASH(0x600500980) 
           empty hash 
  DB<5>

##</code><code>##

print "foo" if $h{g} && $h{g}{h} && exists $h{g}{h}{i};

##</code><code>##

print "foo" if $h{g} && $h{g}{h} && defined $h{g}{h}{i};