Select Code to Download

my @array1 = qw/ball bat helmet/;
while (@array1) {
...
  print $item;
  push(@array2,$item);
}

my @array1 = qw/ball bat helmet/;
while (@array1) {
  print pop @array1;
}