sub ben_holen  {
        my $dbh = DBI->connect($DBN,$DBUSER,$DBPASS) or die $DBI::errstr;

        my $statement_suchen="SELECT * FROM zus_doc_benutzer";
        my $sth_suchen=$dbh->prepare($statement_suchen) or die $DBI::errstr;
        $sth_suchen->execute or die $DBI::errstr;
        my @daten=();
        while (my @row = $sth_suchen->fetchrow_array()) {
                push @daten, @_;
        }
        $sth_suchen->finish();
        $dbh->disconnect();
}