use JSON::XS;
use Data::Dumper;

my %hash = ( cl_ip => 209890 );

my $json = encode_json \%hash;

print Dumper( \%hash );

print qq($json\n);

__END__

$VAR1 = {
          'cl_ip' => 209890
        };
{"cl_ip":209890}