@a = (3,1,2,5,6); print join(",",sort { $a <=> $b} @a); print join(",",sort { $a <= $b} @a); [download]
In reply to Simple typo in numerical sort, major error by Anonymous Monk