%  perl -we 'sub fn {print "$a$b\n"} print(sort(fn(0,0,1,2)))'
Unquoted string "fn" may clash with future reserved word at -e line 1.
00
10
21
0012