#!perl

use strict;
use warnings;

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 ( $ar_zahl[$_] = <STDIN>);
}

foreach $_ (@ar_zahl) {
	$summe = $ar_zahl[$_];
}

$durchschnitt = $summe / $anzahl;

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