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