Select Code to Download

for (-$#array .. 0) {
...

J:\>perl -le "@arr = ( 1 .. 10 ); print $arr[ $_ ] for - $#arr .. 0;"
2
...
1

J:\>

J:\>perl -le "@arr = ( 1 .. 10 ); print $arr[ $_ ] for reverse 0 .. $#
+arr;"
10
...
1

J:\>