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

##</code><code>##

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