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

J:\>