$ perl -le '$h = {one=>1}; print "$$h{one}"'
1