use experimental 'refaliasing';
my $rvars = { foo=>"bar" };
\my %vars = $rvars;      # alias
print $vars{foo}, "\n";  # prints "bar"
$vars{abc} = "xyz";      # modifies $hashref's contents