perl -MO=Deparse,x7 -e'sort { $b cmp $a } @x'
sort @x;
-e syntax OK