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