my @sums = map { $^a + $^b } zip(@foo, @bar);