my @initials;
my @scores;

while (...)    # The major loop
{
    ...
    push @initials, $initial_add;
    push @scores,   $score_total;
    ...
}

# access @initials and @scores here