my $score;

foreach (...)
{
    ...
    my $local_score = scoring($s, $m);
    $score += $local_score;
    print $local_score;    # (or did you want to print $score here?)
}