Array Perl

@a = (1 .. 10);
foreach (@a) {$_ *= 2;}
print join(", ", @a);