Select Code to Download

while (@array) {
   my $item = shift @array;  # or pop
...
      push(@array, ...);     # or unshift
   ...
}