my $json = new JSON::XS;
substr($$json,0,1) = 'X';  # the object is a ref to a PV