@foobar = map { $foo[$_] + $bar[$_] } ( 0..(@foo > @bar ? $#foo : $#bar ) );