Re^5: Printing an array using while loop

[AnomalousMonk]

Why join? If you're already generating the array elements with a terminating newline, why not just:

c:\@Work\Perl\monks>perl -wMstrict -e
"my @ra = (qq{bat\n}, qq{ball\n}, qq{glove\n});
 print @ra;
"
bat
ball
glove