@x = (6,5,8,5,1,4,20); #numeric
@x = sort {$a <=> $b} @x;
print "@x\n"; #generates: 1 4 5 5 6 8 20