open ORGIDATA, ">orig" || die "Couldn't open! $!";
for (my $k = 0; $k < @classid; $k++) {
    if ($classid[$k] != $classid[$k-1]) {
       print $classid[$k], " ", @{$class[$k]}, " ", $location
+[$k], " ", $credits[$k], "<br>\\
n";
    }
}
close ORGIDATA;