if ( $class eq 'cmdb_ci_svr' ){
    next if $seen{$app}{$ip}++;
    push @{$arx_data{$app}{'members'}},$ip;
  }

##</code><code>##

    if ( $class eq 'cmdb_ci_appl'){
      push @{$arx_data{$u_ci}{'name'}}, $name;  
      } elsif ( $app ne "" && $ip ) {
         if ( exists $arx_data{$u_ci}{'name'} ) {
            push @{$arx_data{$app}{'members'}},$ip;
         } else {
            push @{$arx_data{$u_ci}{'name'}}, $null;
            push @{$arx_data{$app}{'members'}},$ip;
         }
    }

##</code><code>##

if ( $data[$ip_address_pos] eq "" 
    && $data[$name_pos] ne "" 
    && is_hostname($data[$name_pos])) {
    my $address = inet_aton($data[$name_pos])
      || "Error: Can't resolve.";
    if ( $address ne "" 
        && $address ne "Error: Can't resolve." ) {
           $address = inet_ntoa($address);
           splice @data, ($ip_address_pos), 1, $address;
             my $cmdb_name = $data[$name_pos];
             my $cmdb_lc_name = lc $cmdb_name;
             splice @data, ($name_pos), 1, $cmdb_lc_name;
    }
}