Select Code to Download

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

$ perl
for $" (qw( a b c d )) {
...
}
__END__
1a2a31b2b31c2c31d2d3$