for my $i (0..3) {
  $list1[$i] += $list2[$i];
}