Hash Perl

%hash = (that => this);
$hashreference   = \%hash;
print "$$hashreference{that}\n";