$ perl -e '
> my @stuff = qw{ foo bar baz };
> 
> print join qq{\n}, @stuff, qq{\n};
> print qq{Tail of test 1\n};
> 
> print join( qq{\n}, @stuff ), qq{\n};
> print qq{Tail of test 2\n};
> 
> print join qq{\n}, @stuff, q{};
> print qq{Tail of test 3\n};
> 
> print do{ local $" = qq{\n}; qq{@stuff\n} };
> print qq{Tail of test 4\n};'
foo
bar
baz

Tail of test 1
foo
bar
baz
Tail of test 2
foo
bar
baz
Tail of test 3
foo
bar
baz
Tail of test 4

$