my $json; tie %$json, 'Tie::IxHash';
$json->{'jsonrpc'} = "1";
$json->{'method'} = "2";
$json->{'params'} = "3";
$json->{'id'} = "4";
print "$_\n" foreach (keys %$json);

sub json($$)
{
	my $section = shift;
	my $name = shift;
	my $data = Encode::encode_utf8($meta->{'json'}->{$section}->{$name});
	return JSON->new->utf8->allow_nonref->allow_blessed->convert_blessed->relaxed->decode($data);
}
...
my $obj = &json('sync', 'cache');