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