Select Code to Download

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

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