my @sorted = map {substr $_,2}
             sort
             map { pack 'na*', length((%{$HoHoA{$_}})[0]), $_ }
             keys %HoHoA;