DB<1> use Data::Dumper
 
  DB<2> $hr={a=>{b=>{c=>1}}}
 
  DB<3> print Dumper $hr
$VAR1 = {
          'a' => {
                   'b' => {
                            'c' => 1
                          }
                 }
        };
 
  DB<4> print $hr,$hr->{a},$hr->{a}{b},$hr->{a}{b}{c}
HASH(0x98a2930)HASH(0x97f5060)HASH(0x9809780)1

##</code><code>##

$VAR1 = {                               # HASH(0x98a2930)
          'a' => {                      # HASH(0x97f5060)  
                   'b' => {             # HASH(0x9809780)
                            'c' => 1
                          }
                 }
        };