>perl -wMstrict -le
"my @ra = (1,2,3,4,5);
 { $\" = ''; print qq{@ra}; }
"

##</code><code>##

$ perl -Mstrict -wle '
> my @arr = ( 1, 2, 3 );
> print qq{@arr};
> { $" = q{}; print qq{@arr} }
> print qq{@arr};'
1 2 3
123
123
$

##</code><code>##

$ perl -Mstrict -wle '
my @arr = ( 1, 2, 3 );
> print do{ local $" = q{}; qq{@arr} };'
123
$