programming-examples/perl/String/Join with.pl

print join(", ", (map {2 * $_} 1, 2, 3));