@score = qw( 1 2 3 5 8 13);
foreach $score (@score){
   print "score is $score\n";
   $a += $score;
   print "dev is " , ++$dev , "\n";
} 
print "a is $a \n";