$ perl dive.pl 
$VAR1 = {
          'a' => {
                   'b' => {
                            'c' => {
                                     'd' => ''
                                   }
                          }
                 }
        };