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