#my $temp = bless $doc;
#my $json = encode_json \%temp;