Select Code to Download

$href->{p=root}{cp=1} = 'entry1'
$href->{p=root}{cp=1}{n=1} = 'entry11'

$href->{'p=root'}{'cp=1'}{'n=1'}{'n=1'}{'n=1'}{'n=1'} = 'entry1111';
$href->{'p=root'}{'cp=1'}{'n=1'}{'n=1'}{'n=1'}{'n=2'} = 'entry1112';
...
# Let's see what we got:
use Data::Dumper; $Data::Dumper::Indent = 1;
print Dumper $href;

$VAR1 = {
  'p=root' => {
...
    }
  }
};