sub html { print "\n"; print "\n"; foreach my $key (sort keys (%hash4html)) { print "$key\n"; print "

Info

\n"; foreach my $key2 (keys (% {$hash->{$key}->{'Info'}})) { print "

".$key2." = ".(%{$hash}->{$key2})."

"."\n"; }print "\n"; } print "\n"; print "\n"; } Bei der Zeile [print "

".$key2." = ".(%{$hash}->{$key2})."

"."\n";] werden keine Werte ausgespuckt...Weiss jemand was ich falsch mache?