my $foo .= ",$_" for qw(1 2 3);
print "$foo\n";