RosettaCodeData/Task/Sort-an-integer-array/Perl/sort-an-integer-array.pl

@nums = (2,4,3,1,2);
@sorted = sort {$a <=> $b} @nums;