#open (ORGIDATA, ">../states/orig$$") or die "Couldn't open! $!";
#print ORIGDATA "pre-for, pre-if<br>";
print "pre-for, pre-if<br>";
for (my $k = 0; $k < @classid; $k++) {
#    print ORIGDATA "pre-if<br>";
    print "pre-if<br>";
    if ($classid[$k] != $classid[$k-1]) {
        print $classid[$k], " ", @{$class[$k]}, " ", $location[$k], " ", $credits[$k], "<br>\n";
    }
#    print ORIGDATA "post-if<br>";
    print "post-if<br>";
}
#print ORIGDATA "post-for, post-if<br>";
print "post-for, post-if<br>";
#close ORGIDATA;
#print ORIGDATA "post-all<br>";
print "post-all<br>";