Select Code to Download

@a = (1,1,1);
@b = (2,2,2);
foreach $i (0 .. $#a) {
  $a[$i] += $b[$i];
}

@a = map $a[$i] + $_, @b;