for my $i (0 .. @array) {
    ...
}