(%baz = %{$_->[0]}), (@bar = @{$_->[1]}) for [&foo()];

##</code><code>##

our (%baz, @bar);
(*baz, *bar) = &foo();