my $data;
ROW: while ( my @line = $q->fetchrow_array ) {
    for my $i ( @$data ) {
        if ( $i->{SERVER} eq $line[0] ) {
            push @{ $i->{DATENBANKLISTE} }, { DATENBANK => $line[1] };
            next ROW;
        } # if
    } # for
    push @$data, { SERVER => $line[0], DATENBANKLISTE => [{ DATENBANK => $line[1] }] };
} # while