$_[0] = undef if 
        (ref $r eq "HASH" && ! %$r) or
        (ref $r eq "ARRAY" && ! @$r); 

##</code><code>##

my $reference_from_json = JSON->new->allow_nonref->relaxed->decode(do { local $/; <STDIN>; }); 
tidyup_json($refrence_from_json); 

print JSON->new->pretty->allow_nonref->canonical->encode($reference_from_json); 

##</code><code>##

        elsif( blessed($value) and  $value->isa('JSON::PP::Boolean') ){
            return $$value == 1 ? 'true' : 'false';
        }