perl -e 'undef %:: or die' perl -e '()= sort {*a=*b, 1} 2,3' perl -e '@a=(1..5); map {@a=() if $x++>2, $_} @a'