>perl -wMstrict -le
"my @un_ord = (2, 100, 3, 10, 4, 1);
 my @n_ord = sort { $a <=> $b } @un_ord;
 print qq{@n_ord};
 my @s_ord = sort { $a cmp $b } @un_ord;
 print qq{@s_ord};
 my @d_ord = sort @un_ord;
 print qq{@d_ord};
"
1 2 3 4 10 100
1 10 100 2 3 4
1 10 100 2 3 4