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