Select Code to Download

while (my $value = $it->next()) {
  # stuff
...
     # for all but the last value
  }
}

while (@array) {
  my $value  = shift @array;
...
     # for all but the last value
  }
}