Select Code to Download

use Data::Dumper;
use Tie::IxHash;
...
                         }
             );
print Dumper(\%hash_ref);

use Data::Dumper;
use Tie::IxHash;
...
$hnr{'MAIN'}{'AP'} = { %list2 };

print Dumper(\%hnr);

tie my %myhash, 'Tie::IxHash';

...
            12, undef,  
             7, undef);
print Dumper(\%myhash);