foreach my $ele (@documentlist){
my $file = ${$ele->name()}.'.html';
open(my $fh,'>',$file) or die $!;+
my $string = ''.$file.''.
''.${$ele->name()}.'
';
# PROBLEM
foreach my $ele2 (%{$ele->spalteninfo()}){
}
$string .= '
';
print $fh $string;
close $fh or die $!;
}