c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = join foo => 1, 2, 3, 4;
 print qq{'$s'};
"
'1foo2foo3foo4'

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = join 8, qw(foo bar baz);
 print qq{'$s'};
"
'foo8bar8baz'