Perl & Genomics

@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";