$hashreferinta = {'GENA_A' => 'ttgtagtagtt', 'GENA_B' => 'ggtgtgatag', 'GENA_C' => 'gagtagcaa'};

print "Referinta este: $hashreferinta \n";
print "Referinta pointeaza la valoarea:", %{$hashreferinta}, "\n";
print "Referinta pointeaza la valoarea:", %$hashreferinta, "\n";
print "Referinta pointeaza la valoarea: $$hashreferinta{GENA_B} \n";
print "Referinta pointeaza la valoarea: $hashreferinta->{GENA_B} \n";

# How to clear a Perl hash
# Let's say we define an anonymous hash like this:
# my $hash = {};
# To empty or clear the hash for reuse:
# %{$hash} = (); or
# undef %{$hash};