@a = (1..3);
  for (@a) {
    print;
    push @a, $_ + 3 if $_ % 2 == 1;
  }

##</code><code>##

        index = 0;     
        while (index < array.length()) {
          process element array[index];
          index += 1;
        }