1234
my %config = ();my $sth = $dbh->prepare("SELECT * FROM event_config") or die $dbh->errstr;$sth->execute() or die $dbh->errstr;$config{$key} = $wert while my ($key,$value) = $sth->fetchrow_array();