#!perl

use strict;
use warnings;

# das zu initialisieren macht wenig Sinn, schon garnicht mit "" wenns Zahlen sind.
#Zudem unterdrückts vielleicht hilfreiche warnings bei Fehlern im Programm, wenn die Variablen nicht belegt werden.
my ($anzahl, $summe, $durchschnitt);
my @ar_zahl = ();

print "Wie viele Zahlen möchten sie eingeben?: ";
chomp ($anzahl = <STDIN>);

foreach (1..$anzahl) {
	print "Bitte Zahl nummer $_ eingeben: ";
	chomp (my $input = <STDIN>);
	push @ar_zahl, $input; # push macht hier klarer, dass einfach angefügt wird und vermeidet Fehler beim Indexzählen.
}

$summe += $_ for @ar_zahl; # $summe += ist Kurzform für $summe = $summe +
$durchschnitt = $summe / @ar_zahl; # / forciert hier sowas wie numerischen Kontext. Arrays in diesem (oder besser scalarkonext) liefern die Anzahl ihrer Elemente

print "Anzahl der eingebenen Zahlen: $anzahl\n";
print "Sumer der eingebenen Zahlen: $summe\n";
print "Durchschnitt der eingebenen Zahlen: $durchschnitt\n";