Select Code to Download

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

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