foreach my $key (keys %$decodedJSON)
            {
            my $val = $decodedJSON->{ $key };
            if (is_hashref($val))    {
            ...