sub initialize
{
    my $self = shift;
    #$self->reset;
    $self->{
            SERVERHASHLIST=> '%',
            SERVERLOCATION=> '%',
           };
           

    %{$self->{SERVERHASHLIST}}=compileserverhash();
    %{$self->{SERVERLOCATION}}=compileserverloc();
    #%{$test1->element()} = %aa ;
    
}


##</code><code>##


sub compileserverhash
{
my %hash
....

return %hash

}