use strict;
use warnings;

use Data::Dumper;

my $data =[
... # Ref OP
];
my @extras  = grep {$_->{status} eq 'Extra'} @$data;
my @mains   = grep {$_->{status} eq 'Main' } @$data;
MAIN:
foreach my $main (@mains) {
    EXTRA:
    foreach my $extra (@extras) {
        next EXTRA if $main->{ID} ne $extra->{ID};
        @{$main}{qw/new_name new_ad1 new_city new_z_code/}
            = @{$extra}{qw/name Ad1 City zCode/};
        print Dumper($main);
        next MAIN;
    }
}