#!/usr/bin/perl
%x=(a=>1);
print length($x{a}),"~",
  encode_json(
    {
      map {
        $_ => $x{$_} =~ /^[\d.]+$/ ? 0+$x{$_} : $_
      } keys %x
    }
  ),"\n";
__END__
1~{"a":1}