@score = qw( 1 2 3 5 8 13);
for($ctr=0; $ctr<@score; $ctr++){
   print "$score[$ctr]\n";
   $a = $a + @score[$ctr];
   $dev++;
   print "$dev";
} 

##</code><code>##

@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";