Help for this page

Select Code to Download


  1. or download this
    my @popular = (sort { $histogram{$b} <=> $histogram{$a} }  @unique)[0.
+.2];
print "@popular\n";
__END__
tomato watermelon oranges
  2. or download this
    my @popular = (sort { $histogram{$a} <=> $histogram{$b} }  @unique)[0.
+.2];
print "@popular\n";
__END__
apple oranges watermelon