programming-examples/perl/Hash/Working join with map.pl

print join(", ", (map {my $value = $_; $value *= 2} (1 .. 10)));