Select Code to Download

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

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