sub foo {
        return ({},[]);
}
my ($baz, $bar);
($baz,$bar) = &foo();
print ref $baz," ",ref $bar,"\n";


##</code><code>##

%hash = %$baz;
@array = @$bar;