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

my $data = [
    {   Ad1    => '20 SOUTH CENTRAL  #B3',
        status => 'Property',
        City   => 'NY',
        zCode  => '0002',
        name   => 'John D'
    },
    {   Ad1    => '15 SOUTH CENTRAL  #B4',
        status => 'Property',
        City   => 'NY',
        zCode  => '0002',
        name   => 'John V'
    },
    {   Ad1    => '100 main St.',
        status => 'houses',
        City   => 'BO',
        zCode  => '0007',
        name   => 'Mary'
    },
];

my @add_ins = grep { $_->{status} eq 'houses' } @$data; 
my $add_in = $add_ins[0];
foreach my $row (@$data) {
    $row->{new_name}  = $add_in->{name}  // '';
    $row->{new_Ad1}   = $add_in->{Ad1}   // '';
    $row->{new_City}  = $add_in->{City}  // '';
    $row->{new_zCode} = $add_in->{zCode} // '';
}

print Dumper($data);