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()};
  etc.....
  print "--------------------\n";
}