P:\test>perl -le"@a = 1.. 10; print for sort{1} @a
10
9
8
7
6
5
4
3
2
1