Help for this page
use Devel::Peek; #...etc... ... print Dump( $y ); print Dump( $x{foo} );
SV = RV(0x1822a6c) at 0x181c38c # $y REFCNT = 1 ... PV = 0x301110 "b"\0 CUR = 1 LEN = 2