my @by_mean =
    map  { $_->[0] }
    sort { $a->[1] <=> $b->[1] }
    map  {
        [$_, length(join '', keys %{$HoHoA{$_}})/keys(%{$HoHoA{$_}})]
    } keys %HoHoA;