my @stuff=qw(foo bar baz);
print join "\n",@stuff,"\n";
print "test!\n";
------------
foo
bar
baz

test!