in reply to Autogenerate descending arrays

Or just 
@array = reverse (1..7);

[download]



Code is (almost) always untested.
http://www.justicepoetic.net/

In Section Cool Uses for Perl