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