Mega Code Archive

 

Categories / Perl / Array

 

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";