Select Code to Download

%jsonhash = (
    results => {
...
    },
    ...
);

%h = (r => { x => { a => 1, b => 2 }})

$ alias perld='perl -Mstrict -Mwarnings -MData::Dump -E'

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

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

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

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

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

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

%{ $jsonhash{results}{single_key} }
$jsonhash{results}{single_key}->%*

$jsonhash{results}{single_key}{certname}