perl -W -e 'warn sort {$a <=> $b} qw(A B);'

##</code><code>##

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