sub foo {
        return ({},[]);
}
my (%baz, @bar);
(\%baz,\@bar) = &foo();