Mega Code Archive

 

Categories / Perl / Hash

 

Working join with map

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