perl -e 'sub f{print "f($_[0])\n"}; $h={one=>1,two=>2}; print "$h\n"; f($h);'
HASH(0x80f57ac)
f(HASH(0x80f57ac))