[Perl]对数字按大小排序而非字符顺序

[PerlMonk]

没有0补全的数字怎么重新排列顺序
10
11
12
13
14
15
16
17
18
19
1
20
21
22
23
24
25
26
27
28
29
2
30
31
32

[PerlMonk]

Code: [show] | [select all]

print join ", ",  sort { $a <=> $b } qw/ 

        10 11 12 13 14 15 16 17 18 19 1 20 21 22 23 24 25 26 27 28 29 2 30 31 32 

        /;