Help for this page

Select Code to Download

Select or download this

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