for($ctr=0; $ctr<@score; $ctr++){
print "@score\n";
$a = $a + @score;   
$dev++;
print "$dev"; 
}