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";
}