for my $i ( reverse 0 .. $#$array ) {