my(%hash, $ref);
$ref=\$hash{key};
$$ref=42;
print $hash{key};