my %customers;
my $customer_ref = \%customers;

$customers{'cust'}{'id'} = $id;
$customers{'cust'}{'name'} = $name;

my $json = encode_json $customers_ref;

print $json;