下の例だと、ハッシュの計算値は0xe9806307。
$ perl -MDevel::Peek -e 'Dump({ key =%gt; "value" })'
SV = RV(0x8e3c704) at 0x8e3c6f8
REFCNT = 1
FLAGS = (TEMP,ROK)
RV = 0x8e3c818
SV = PVHV(0x8e419b0) at 0x8e3c818
REFCNT = 1
FLAGS = (SHAREKEYS)
ARRAY = 0x8e5a608 (0:7, 1:1)
hash quality = 100.0%
KEYS = 1
FILL = 1
MAX = 7
RITER = -1
EITER = 0x0
Elt "key" HASH = 0xe9806307
SV = PV(0x8e3a6d8) at 0x8e3c998
REFCNT = 1
FLAGS = (POK,pPOK)
PV = 0x8e51b38 "value"\0
CUR = 5
LEN = 8
これを使いたければ Inline::C を使えばいいということが書いてある。