my    	@Curlist;
my	$classnm, $seqid;
my	$prevclassnm=undef;

open (SD, "sort data|") or die "ERR: sort data| failed";
while(<SD>) {
	chomp;
	$_ =~ s/^\s+//g;
	($classnm, $seqid) = split(/\s+/, $_);
	if (defined($prevclassnm) && ($classnm ne $prevclassnm)) {
		print "---- $prevclassnm ---- \n@Curlist\n";
		undef(@Curlist);
	}	
	$prevclassnm  = $classnm;
	push(@Curlist, $seqid);
}
print "---- $prevclassnm ---- \n@Curlist\n"; 
close(SD);