Select Code to Download

  my @n; $n[$_{$_}] = $_ for map{$_{$_}++; $_} @list;

  print "Most frequent: $n[-1]";

sub most_frequent{ local *_=*_; $_[$_{$_}] = $_ for map{$_{$_}++; $_} 
+@_; $_[-1]; }

#!/usr/bin/perl
...
              mf_bigger  110/s        --      -94%
              sf_bigger 2000/s     1713%        --