print $_ . ': ' . $erg{$_} . '' . "\n" foreach (keys %erg); #### my $erg = 0; $erg += $erg{$_} foreach (keys %erg); print $erg,"\n";
## my $erg = 0; $erg += $erg{$_} foreach (keys %erg); print $erg,"\n";