J:\>perl -le "@arr = ( 1 .. 10 ); print $arr[ $_ ] for - $#arr .. 0;"
2
3
4
5
6
7
8
9
10
1

J:\>