#!/usr/bin/perl -w

# Dato un array di interi sommarli tutti

use strict;
my(@arrayInt, $somma, $i, $a);

@arrayInt = (2, 4, 5, 1, 5, 6);
print "Elementi dell'array: @arrayInt\n";
print "Lunghezza dell'array: ".@arrayInt."\n";
$somma = 0;
for ($i = 0; $i < @arrayInt; $i++) {
    $somma += $arrayInt[$i];
    # $somma += @arrayInt[$i]; # funzionera`?
    # print @arrayInt[$i]; # funzionera` ?
}
print "Somma: $somma\n";

my($x);

$somma = 0;
foreach $x (@arrayInt) {
    $somma += $x;
}
print "Somma: $somma\n";