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