my @score=(12,14,156,453,232,12);
my $sum=0;
for(my $i=0;$i<scalar(@score);$i++){
$sum=$sum+$score[$i];
}
print "sum: $sum\n";
print "avrage" . int($sum/scalar(@score));
[download]