Select Code to Download

  for (my $ii=0; $ii < scalar(@some_array); $ii++) {
    print do {
...
       "Value at position $ii: $some_array[$ii]\n";
       };
  }