for my $datei (@dateien) {
my $document;
&functions(\$document,\$datei);
push(@documentlist,$document);
}

foreach my $ele (@documentlist){
  print "spalteninfo:\t";
  print $ele->spalteninfo();
  print "\n";
  print "parent:\t";
  print $ele->parent();
  print "\n";
  print "child:\t";
  print $ele->child();
  print "\n";
  print "parent:\t";
  print $ele->parent();
  print "\n";
  print "doc_format:\t";
  print $ele->doc_format();
  print "\n";
  print "name:\t";
  print $ele->name();
  print "\n";
  print "--------------------\n";
}

$$document = DOCUMENT->new();
$$document->spalteninfo(\@array);
$$document->name(\$name);
&get_hierarchie(\$name,\@child,\@parent);
&get_format(\$doc_format);
$$document->doc_format(\$doc_format);
$$document->child(\@child);
$$document->parent(\@parent);