>perl -wMstrict -MData::Dump -le
"my @raw = (1, 2, 3, -1, -2, -12, 123, 23);
 ;;
 my @sorted_lexical_ascending = sort @raw;
 dd \@sorted_lexical_ascending;
 ;;
 my @sorted_numeric_ascending = sort { $a <=> $b } @raw;
 dd \@sorted_numeric_ascending;
"
[-1, -12, -2, 1, 123, 2, 23, 3]

[-12, -2, -1, 1, 2, 3, 23, 123]