c:\@Work\Perl\monks>perl -wMstrict -le
"my $arrayref = [ qw(uno dos tres quatro cinco) ];
 ;;
 for my $i (reverse 0 .. $#$arrayref) {
   print qq{$i: $arrayref->[$i]};
   }
"
4: cinco
3: quatro
2: tres
1: dos
0: uno