$ perl -we'my @a=qw( a b c ); my @x = (@a, "\n"); print "[$_]" for @x' | od -c
0000000   [   a   ]   [   b   ]   [   c   ]   [  \n   ]
0000014