use Lexical::Alias qw(alias_r);
my ($s, %h);

print '$s:',\$s, "\n", '$h{key}:',\$h{key}, "\n";
print "---\n";
alias_r \$h{key}, \$s;
print '$s:',\$s, "\n", '$h{key}:',\$h{key}, "\n";
__END__
$s:SCALAR(0x1ac2430)
$h{key}:SCALAR(0x1acefd4)
---
$s:SCALAR(0x1acefd4)
$h{key}:SCALAR(0x1acefd4)