#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dump;

my $data = [
    { status => 'Main',  City => 'NY', zCode => '0002', ID => '2222' },
    { status => 'Extra', City => 'BO', zCode => '0007', ID => '2222' },
    { status => 'Cabin', City => 'NE', zCode => '4562', ID => '2222' },
    { status => 'Main',  City => 'AA', zCode => 'TTTT', ID => '8888' },
    { status => 'Test',  City => 'BB', zCode => 'WWWW', ID => '8888' },
    { status => 'Cabin', City => 'CA', zCode => '2334', ID => '8888' },
];

my %new = (City => 'new_City', zCode => 'new_z_code');
my %extra;
$extra{$_->{ID}} = $_ for grep +($_->{status} eq 'Extra'), @$data;

for my $row (@$data) {
    next unless $row->{status} eq 'Main';
    %$row = (%$row,
        map +($new{$_} =>
            exists $extra{$row->{ID}} ? $extra{$row->{ID}}{$_} : ''
        ), keys %new
    );
}

dd $data;