$ perld 'my %h = (r => { x => { a => 1, b => 2 }}); dd $h{r}{x}'
{ a => 1, b => 2 }