%g_config_servers = ();
my $query = "
                            SELECT
                                    *
                            FROM
                                    hlstats_Servers
                    ";                                  #WHERE
                                                        #serverId='$g_servers{$s_addr}->{id}'
                    my $result = &doQuery($query);
                    if ($result)
                        {
                                my $hash_ref;
                                use Data::Dumper;
                                print Dumper \$result;
                         
                                # mit jedem Durchlauf gibt es eine neue Variable $hash_ref mit eigener Speicheradresse
                                while ( my $hash_ref = $result->fetchrow_hashref() ) {
                                # $hash_ref nicht dereferenzieren, weil wir einen AoH aufbauen; perldoc perldsc
                                        $g_config_servers[ $hash_ref->{'AddressPort'} ] = $hash_ref;
                                }
                                $result->finish;

                                print Dumper \%g_config_servers;
                                &setServer($s_addr);
                        } else
                        {
                                $result->finish;
                                delete $g_servers{$s_addr};
                                next;
                        }