foreach my $i (0 .. ($#array/2) - 1) {
  ...
}