#!/usr/bin/perl

use strict;
use warnings;
use 5.10.1;
use Data::Dumper;

use Mojo::JSON qw/j/;

my $ref = {};
$ref->{id} = '00500';

$ref->{id} == '500';

my $json =  j $ref;

my $newref = j $json;

say Dumper $ref, $newref