my $i = 0;
do {
  $array[$i++] ..
} until $i > $#array;

do {
  $array[$i++] ..
} while $i <= $#array;

JUMP:
do {
  $array[$i++] .. 
}
goto JUMP if $i <= $#array;