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