my $i = @array;
while ( $i-- ) {
    # ...
}