Loops provided a solution where values are not sorted in the inner arrays. I was just about to post a similar solution:

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

If you want to sort them byt he keys, you can use a bit more complicated incantation:

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