@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>";
}