>perl -wMstrict -le
"my @TaR = (8, 2, 5, 20, 4, 10, 5, 6, 1, 8);
 print qq{original: @TaR};
 ;;
 my @sorted_lex = sort @TaR;
 print qq{lexical:  @sorted_lex};
 ;;
 my @sorted_num = sort { $a <=> $b } @TaR;
 print qq{numeric:  @sorted_num};
"
original: 8 2 5 20 4 10 5 6 1 8
lexical:  1 10 2 20 4 5 5 6 8 8
numeric:  1 2 4 5 5 6 8 8 10 20