@numeri = (3,66,2,34,12,57);
$lunghezza = 0;
# Inizializzo due variabili con il primo numero dell'array
# serviranno a tenere minimo e massimo
$min = $numeri[0];
$max = $numeri[0];
foreach $i (@numeri) {
$lunghezza++;
$somma = $somma + $i;
if ($min > $i) {
$min = $i;
}
if ($max < $i) {
$max = $i;
}
print "Il numero corrente e': $i (per ora min: $min e max: $max)\n";
}
$lunghezza_alternativa = $#numeri + 1;
if ($lunghezza > 0) {
$media = $somma / $lunghezza;
}
print "\nLunghezza dell'array: $lunghezza (o $lunghezza_alternativa)
Il numero minimo: $min
Il numero massimo: $max
La media: $media";