...
use Data::Dumper; 
...
my $listA;
$VAR1 = [
          {
            'ZIP' => '01111',
            'CITY' => 'New York, NY',
            'STREET_NAME_1' => 'CONNECTOR PARK',
            'STREET_NAME_2' => '100 MAINST'
          }
        ];

my @listB;
$VAR1 = {
          'account' => '73240',
          'name' => 'G Church CO'
        };
$VAR2 = {
          'account' => '73240',
          'name' => 'A Church CO'
        };
$VAR3 = {
          'account' => '73240',
          'name' => 'B Church CO'
        };
$VAR4 = {
          'account' => '73240',
          'name' => 'C Church CO'
        };
$VAR5 = {
          'account' => '73240',
          'name' => 'D Church CO'
        };
$VAR6 = {
          'account' => '73240',
          'name' => 'E Church CO'
        };