@a=qw( 1 2 3 4 a b c g f);
    
    $s=0;
    foreach $i(@a){
    	$s+= $i;
    }
    	print $s;
    $perl a.pl
    10