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

alias $h{key}, $s;
print \$s, "\n", \$h{key}, "\n";

=>

SCALAR(0x811e2f4)
SCALAR(0x811e2f4)