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