Select Code to Download

my @array = map [ values %{ $HoH{$_} } ], sort keys %HoH;

my @array = map { my $k = $_;
                  [ map $HoH{$k}{$_},
                        sort keys %{ $HoH{$_} }
                  ]
                } sort keys %HoH;