Some examples.

$ perl -E '
> @arr = qw{ apple pear plum };
> say @arr;
> say qq{@arr};
> say do {
>    local $" = q{, };
>    qq{@arr};
>    };
> say join q{, }, @arr;
> print join qq{\n}, @arr;
> say q{OOPS!! no trailing newline :-(};
> print join qq{\n}, @arr, q{};
> say q{BETTER!! empty string joined on the end :-)};'
applepearplum
apple pear plum
apple, pear, plum
apple, pear, plum
apple
pear
plumOOPS!! no trailing newline :-(
apple
pear
plum
BETTER!! empty string joined on the end :-)
$
[download]