for (1 ... #$array) {
  print $_;
 }