#!/usr/bin/perl
use warnings;
use strict;

use JSON;
use Data::Dumper;

my $j = << '__STRUCT__';
[
  {"account":"123456","name":"Comps"},
  {"account":"123456","name":"MIT"},
  {"account":"123456","name":"Engine"},
  {"account":"123456","name":"Cars"},
  {"account":"123456","name":"The Company Inc."},
  {"account":"123456","name":"XTCo. Inc."},
  {"ZIP":"02111","CITY":"New York, NY","STREET_NAME_TWO":"","STREET_NAME_ONE":"1 SAMWE SQUARE"},
  [
    {"order":"542","suggested":"250"}
  ],
  [
    {"cd":"Joe Doe"},
    {"cd":"Mary Lou"},
    {"cd":"Jim D. Mark"},
    {"cd":"Charles Dmond"},
    {"cd":"Justin Dwo"}
  ]
]
__STRUCT__

my $p = from_json($j);
print Dumper $p;