my @array = qw{ball bat helmet};
my $i=0;
while ($i<=$#array) {
    print $array[$i],"\n";
    $i++;
}