use strict;
use warnings;

my ($laufmich, $summasummarum, $eingabe ) = (0 x 3);

do {
  print 'Zahl: ';

  $eingabe = <STDIN>;

  chomp $eingabe;

  if (length $eingabe) {
    $laufmich++;
    $summasummarum += $eingabe;
  }
} until (not length $eingabe);
#print "Summe: $summasummarum\n";
#print "Anzahl: $laufmich\n";
print "Durchschnitt: ", $summasummarum/$laufmich;