my @x = (1,2,3,4,5,6,7,8,9,10);
map {$_ = $_ * 2} @x;
print "@x\n"; # 2 4 6 8 10 12 14 16 18 20