while ( my $zeile = $sth->fetchrow_hashref ){
            push @rec_hash, $zeile;
        }