sub getBaum1{ 
  my( $twig, $tree)= @_;  
  my %hashTree = getTreeField(1); 
  my $sDummy = "";
  
  $anzCol = 1;
  $log->print( Dumper(\%hashTree)."\n" ) if $opt_debug;
  
  foreach my $item ( sort keys %hashTree ){
    if( defined($tree->first_child( $hashTree{$item} ))){
      my $treeChild = $tree->first_child( $hashTree{$item} );
      my $treetext = join '', map { $_->text if( $_->is_text || (exists $_->{'ent'})) } $treeChild->children;
      $log->print($item.": ".$treetext."\n" ) if $opt_debug;
      $sDummy = encode('iso-8859-1', $treetext );
      my @keys = split('_', $item ); 
      $fields{$keys[1]} = $sDummy;
    }
    $anzCol++;
  }
  if( $anzCol >= $anzSpalten ){
    $log->print( "\n".Dumper(\%fields)."\n" );
    &writeFile();
    %fields = ();
  }
}