my $json = {
	'book' => {
		'title' => JSON::PP::true,
		'pages' => 5.03
	}
};

print $json->{'book'}{'pages'}, "\n";
my $string = encode_json($json);
print "After printing: $string\n";

$json->{'book'}{'pages'} += 0;
my $string2 = encode_json($json);
print "After numify: $string2\n";

##</code><code>##

5.03
After printing: {"book":{"title":true,"pages":"5.03"}}
After numify: {"book":{"title":true,"pages":5.03}}