$ perl -wle 'sort { print "$a<=>$b"; $a cmp $b } qw(e d c a b)'