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

##</code><code>##

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