$score = scoring($s, $m);
$score += $score;

##</code><code>##

my $score;

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

##</code><code>##

use strict;
use warnings;