Tie::RefHash may be what you're looking for (it preserves the reference-ness of the keys) and I believe it's part of the standard distribution.