@a = (3,1,2,5,6);

print join(",",sort { $a <=> $b} @a);
print join(",",sort { $a <= $b} @a);