perl -MData::Dump -e" dd $f={2,{4,{6,8}}}; local *H=$$f{2}{4}; dd\%H"
{ 2 => { 4 => { 6 => 8 } } }
{ 6 => 8 }