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

##</code><code>##

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