$ perlbrew switch perl-5.14.0t
$ perld 'my %h = (r => { x => { a => 1, b => 2 }}); dd $_ for values $h{r}'
{ a => 1, b => 2 }