$ perl -wle 'map { print } qw(d c a b)'

##</code><code>##

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