in reply to printing all elements of arrays

I use:

print $_, "\n" for @a;