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