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;

##</code><code>##

        print ORGIDATA $classid[$k], " ", @{$class[$k]}, " ", $location