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