my %testHash;
my $hashRef = \%testHash;
my $destref = \$hashRef->{'a'}; # Just a reference to the value, no dereference involved.
$$destref = "value";            # Assign to the dereference.
print $hashRef->{'a'} . "\n";