Select Code to Download

my @array = qw/ foo bar baz /;
my $str = do { local $" = ','; "@array" };
...

__END__
foo,bar,baz