my @tmp = &foo();
%baz = %$tmp[0];
@bar = @$tmp[1];