tie @ary, "My::Class", "some", "el", "ems";
for (@ary) {
   some_code($_);
}

##</code><code>##

my @arr1 = (0) x 4;
my $n = 0;
for( reverse @arr1 ) {
	$_ += $n++;
}
print "@arr1\n";

__END__
Output
3 2 1 0