knapper19954 has asked for the wisdom of the Perl Monks concerning the following question:

I'm having trouble printing an array using a while loop. We are required to use the while loop to print it, not the for each like we would normally do. I tried it a few different ways, but I keep getting a endless loop. The array is @array = eq(ball, bat, helmet) I'm new to PERL and could use your help. Thanks!