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