for $" (qw( a b c d )) {
    print "@{[1, 2, 3]}";
}
 
##</code><code>##

$ perl
for $" (qw( a b c d )) {
    print "@{[1, 2, 3]}";
}
__END__
1a2a31b2b31c2c31d2d3$