my @rv = expr;
my %h = @rv;
my $hr = \%h;
my $r = \$hr;