$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";