Just a couple of ideas ..

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

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

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

I reckon that's 17 .. 3 to go :)

-- Foxcub

Update: Couple of corrections.