foreach my $ele (@documentlist){
my $file = ${$ele->name()}.'.html';
open(my $fh,'>',$file) or die $!;+
print $fh ''.$file.''.
''.${$ele->name()}.'
';
# PROBLEM
my %hash = %{$ele->spalteninfo()};
my @sorted = sort keys %hash;
for my $key(@sorted){
print $fh '| '.$key.' | ';
}
for my $key(@sorted){
print $fh ''.$hash{$key}.' | ';
}
print $fh'
';
close $fh or die $!;
}