print "ref $ref";

HASH(000003e8)

print $ref->{b};

2

print $$ref{b};

2