Ok, with your help I think I managed to find a solution. It's a little sloppy, but I'll clean it up later.

@classes = qw/ class1 class2 class3/;
foreach (@classes) {
        my %kboard;
        print "_ $_ _<BR>";
        for ($i = 0; $i <= $#scoredata; $i++) {
                @logdata = split /\|/, $scoredata[$i];
                if ($logdata[4] eq $_) {
                        $kboard{$logdata[0]}++;

                }
        }
        for (keys %kboard) {
                print "$_ = $kboard{$_}<BR>\n";
        }
        print "<BR><BR>";
}
[download]

@scoredata is what I read my data file into. Thanks again everyone.