use List::MoreUtils 'pairwise';

pairwise { $a += $b } @list1, @list2;