#!/usr/bin/perl

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

my $people = [
              {
                'firstname' => ' InReach',
                'companyid' => 1042,
                'type' => 'client',
                'lastname' => 'IT Solutions',
                'id' => 1498,
                'companyname' => 'InReach IT Solutions'
              },
              {
                'firstname' => ' Neil',
                'companyid' => 1589,
                'type' => 'client',
                'lastname' => 'Ssmith',
                'id' => 3132,
                'companyname' => 'White Staffing Management'
              },
              {
                'firstname' => 'Zeeshan',
                'companyid' => 1867,
                'type' => 'client',
                'lastname' => 'Jones',
                'id' => 4174,
                'companyname' => 'Staff247'
              }
];

...