Select Code to Download

  DB<1> use Data::Dumper
 
...
 
  DB<4> print $hr,$hr->{a},$hr->{a}{b},$hr->{a}{b}{c}
HASH(0x98a2930)HASH(0x97f5060)HASH(0x9809780)1

$VAR1 = {                               # HASH(0x98a2930)
          'a' => {                      # HASH(0x97f5060)  
...
                          }
                 }
        };