@foobar = reduce {$a + $b} *(@foo, @bar, $baz, $etc);