% perl5.10.0 -lwe '@a = (2,1); sort @a; print @a'
Useless use of sort in void context at -e line 1.
21