$ perl -MJSON -E'
   say encode_json({ a=>"7", b=>8, c=>"1"+"8", d=>1 . 0 });
'
{"a":"7","b":8,"c":9,"d":"10"}