my %ips_to_check = map {chomp; $_ => undef} <DATA>;

while (my $confLine = <$in>) {
   if ($confLine =~ /ip4-address address="([\d\.]+)"/ 
         and exists $ips_to_check{$1}){
      $confLine =~ s{/>}{update"/>};
    }
    print {$out} $confLine;
}