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