for my $index (reverse 0 .. $#array)