$ perl -Mstrict -Mwarnings -e '
> my @fred = qw{ one two three };
> print @fred . qq{\n};
> print @fred, qq{\n};
> print qq{@fred\n};'
3
onetwothree
one two three