#!/usr/bin/perl

use strict;
use warnings;

my @a=qw( 1 2 3 4 a b c g f);
    
my $s=0;

foreach my $i(@a){
	$s+= $i;
	print "i: $i - s: $s\n";
}
print $s;