See my updated post above with 2 cites from perldoc -f sort. They explain why you had to remeove the prototype and had to add an aditional variable $s.