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