in reply to reading array from the last into begining
One way{grin}
P:\test>perl -le"@a = 1.. 10; print for sort{1} @a 10 9 8 7 6 5 4 3 2 1 [download]