Witam, nie wiem do końca jak napisać tego typu program w perlu. Wiem jak napisać taki program, jeżeli miałbym tylko dla 2 zmiennych to napisać, natomiast pojawia się problem, kiedy mam dla "n" zmiennych. Nie wiem właśnie jak wczytać konkretne liczby które zostaną wpisane. Próbowałem w ten sposób:
<code>
#! /usr/bin/perl -w
sub srednia
{
my ($ilosc, $suma, $element);
$ilosc=@_;
$suma=0;
foreach $element (@_)
{
$suma=$suma+$element;
}
return $suma / $ilosc;
}

NO I TERAZ ZACZYNA SIĘ PROBLEM:

Mogę zastosować taki myk:
print &srednia(2,4,6,8,) - no i wtedy wiadomo policzy im ładnie średnią ale dla tylko tych liczb, a chce żeby użytkownik sam mógł wpisać liczby. Próbowałem w ten sposób:

$x=<STDIN>;
chomp($x);

print &srednia($x)
</code>
ale niestety nie działa, same błędy wyskakują. Jak ktoś wie jak może mi pomóc to proszę pisać. Pozdrawiam.