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;
    }
}