sort[0]=ABCDEF  958439  MS08-074        Security Update for the 2007 Microsoft Office System (KB958439) 2009-01-08
sort[1]=FFFFFF  958439  MS08-074        Security Update for the 2007 Microsoft Office System (KB958439) 2009-01-09

##</code><code>##

TOTAL   BulletinID      KBID    TITLE 2009-01-08 2009-01-09
2       ABCDEF  958439  MS08-074         1          1

##</code><code>##

$count=0;
	$index=0;
	$current="";
	foreach $line (@sorted){
		$index++;
		$count++;
		@split =split(/\t/, $line);	
		$curr="@split[2]\t@split[1]\t@split[3]";
		if ("$prev" eq ""){
			$prev = $line;
			$count=0;
		}else {
			if ($prev eq $curr) {
				
			} else {
				push (@filtered,"$count\t$prev");
				$count=0
			}
			
		}

		$prev = $curr;
		
	}
	
	
	print "\nTOTAL\tBulletinID\tKBID\tTITLE\tdate\n";
	foreach $line (@filtered){
		print "$line\n";
	}
	print "\n";



##</code><code>##

TOTAL   BulletinID      KBID    TITLE
1       ABCDEF  958439  MS08-074