>perl -le"$x->{a}->{c}; print $x; print $x->{a}"
HASH(0x225f18)
HASH(0x226020)