Select Code to Download

while (@array) {
   my $item = shift(@array);
   print "$item\n";
}

while (my ($item) = splice(@array, 0, 1)) {
   print "$item\n";
}