Printing an array using while loop - PerlMonks - The Monastery Gates

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,

www.perlmonks.org