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