open(RH,"<mittel.txt");
my $c = 0;
my $m = 0;
foreach (<RH>) {
	$m = $m + $_; 
};

print "Summe $m\n";
print "Mittel: " . $m / $c;