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