perl -wle 'print for sort 1 .. 100' #### 1 10 100 11 12