for ( my $i = @$array; $i; $i-- ) {