Select Code to Download

$VAR1 = {
  '99155' => {
...
                        ]
                 }
};

for my $outerkey (keys %hash) { 
    for my $innerkey (keys $hash{$outerkey}) { 
...
       push( @{ $hash{$outerkey}{$innerkey} }, @array);
    } 
}