Mega Code Archive

 

Categories / Perl / Array

 

Map to an array

@a = (1 .. 10); map {$_ *= 2} (@a); print join(", ", @a); 2, 4, 6, 8, 10, 12, 14, 16, 18, 20