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