>perl -le"$,=', '; print qw( a b c ) x 3"
a, b, c, a, b, c, a, b, c

>perl -le"$,=', '; print sub { qw( a b c ) }->() x 3"
ccc

##</code><code>##

>perl -le"for my $x qw( a b c ) { print $x }"
a
b
c