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