Help for this page

Select Code to Download


  1. or download this
    print "$_  # Length ", length( ( keys %{ $HoHoA{ $_ } } )[ 0 ] ), "\n"
  for
...
set3  # Length 3
set4  # Length 4
set1  # Length 7
  2. or download this
      map $_->[ 0 ],
  sort { $a->[ 1 ] <=> $b->[ 1 ] }
  map [ $_, length( ( keys %{ $HoHoA{ $_ } } )[ 0 ] ) ],
  keys %HoHoA;