Help for this page

Select Code to Download


  1. or download this
      DB<100> %hash = (
                key1 => 10,
...
  DB<109> grep { $count{$_} == $max } %count
 => 10
  2. or download this
      DB<119> %rcount= reverse %count
 => (3, 10, 3, 10)
...

  DB<121> $rcount{$max}
 => 10
  3. or download this
      DB<113> use List::Util qw/max/

  DB<114> $max = max values  %count
 => 3