Select Code to Download

my @n; $n[$_{$_}] = $_ for map{$_{$_}++; $_} @list;
 
print "Most frequent: $n[-1]";

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