or download this
qwurx [shmem] 15:35 ~ > perl -MDevel::Peek -e '%hash = qw(a 1 b 2 c 3)
+; for(%hash){print STDERR "$_: ";Dump $_; s/b/d/;} print "$_ => $hash
+{$_}\n" for sort keys %hash'
c: SV = PVIV(0x8168b10) at 0x8166b44
...
a => 1
b => 2
c => 3