perl -W -e 'warn sort {$a cmp $b} qw(1 2);'