sub AddUpdateDataSet($;$;$;$) {
        
        if(defined $Host_Records{$_[0]}){
                print $_[0]." already exists.\n";
        } else {
                $Host_Records{ $_[0] } = 1; 
                if(defined $Host_Records{$_[0]}->{TP}->{$_[1]}) {
                        print "TP does exist\n";
                        } else {
                                print "TP update\n";
                                $Host_Records{$_[0]}->{TP}->{$_[1]} = 1;  
                                
                        }#else
                        if(defined $Host_Records{$_[0]}->{USERHOST}->{$_[2]}) {
                                print "USERHOST does exist\n";
                        } else {
                                print "USERHOST update\n";
                                $Host_Records{$_[0]}->{USERHOST}->{$_[2]} = 1; 
                        }#else
                        
                        if(defined $Host_Records->{USER}->{$_[3]}) {
                                print "USER does exist\n";
                        } else {
                                print "USER update\n";
                                $Host_Records{$_[0]}->{USER}->{$_[3]} = 1;      
                        }#else
                }#else
}#CheckHost