use 6; # require perl v6
use List::Util qw/reduce/;

@foobar = @{reduce{[@$a ^+ @$b]}\(@foo, @bar, @baz, @etc)};