use reverse on arrays as well as lists:

   

#!/usr/bin/perl
use warnings;
use strict;
my @count = (1..5);
for (reverse(@count)) {
print "$_...\n";
sleep 1;
}
print "BLAST OFF!\n";

1.	The reverse command reverses the order of the elements in a list, returning the new list.
2.	Using reverse function in print statement
3.	The reverse function reverses the elements in an array
4.	Reverse an array and a list
5.	Reverse a sub-range of an array
6.	Get the return value of reverse function
7.	Using reverse in if statement
8.	Using reverse with and constant range
9.	Using reverse with letter based range

use reverse on arrays as well as lists: : reverse « Array « Perl