my $key = "key1" ;
my $hash = { \$key => ...} ;
print $key . "\n" ;
print ( key $key ) . "\n" ;
__END__
KEY0x83412523
key1