Your solution is going to fail as soon as you encounter numbers that are more than single-digits because the default sort that you use is lexical, not numeric. Consider

perl -le '@arr = (2, 17, 8, 5, 26);
print for sort @arr;'
[download]

produces

17
2
26
5
8
[download]

whereas

perl -le '@arr = (2, 17, 8, 5, 26);
print for sort {$a <=> $b} @arr;'
[download]

does a numerical sort and produces

2
5
8
17
26
[download]

To sort descending numerically change the anonymous sort routine to {$b <=> $a} rather than using reverse.

Cheers,

JohnGG