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