# Better
for (@score) {
    print "$_\n";
    $a += $_;
}
$dev += $#score;
print $dev;

# Less nice
for (my $ctr = 0; $ctr < @score; $ctr++ ) {
    print "$score[$ctr]\n";
    $a += $score[$ctr];
}
$dev += $#score;
print $dev;