in reply to Simple typo in numerical sort, major error
print join(",",sort { $a <= $b} @a); # 6,5,3,2,1 ## Almost believable print join(",",sort { $a > $b} @a); # 1,3,2,5,6 ### WTF?? [download]