http://www.perlmonks.org?node_id=1184546


in reply to How can I find the index of the biggest element in an array?

A one-liner where the array elements are the command line arguments:
$ perl -E 'say [ sort { $ARGV[$b] <=> $ARGV[$a] } 0..$#ARGV ]->[0]' 42 + 1000 999 0 -1