#!/usr/bin/env perl

use strict;
use Data::Dumper;
use JSON;

my $data = '[{"acc_id":0,"acc_cust_id":17,"acc_po_ref":"qwerty","acc_name":"EX3000","acc_phonenum":"0121777777","acc_email":"ex3000@mail.com","acc_expires":null}]';

my @obj = from_json($data);
my $obj = from_json($data);

print Dumper(@obj)."\n";

print Dumper($obj)."\n";

$VAR1 = [
          {
            'acc_name' => 'EX3000',
            'acc_po_ref' => 'qwerty',
            'acc_expires' => undef,
            'acc_email' => 'ex3000@mail.com',
            'acc_id' => 0,
            'acc_phonenum' => '0121777777',
            'acc_cust_id' => 17
          }
        ];

#print "$obj[0]{'acc_id'}\n";

#print "$obj[0]->{'acc_id'}\n";