while(<>){
	chomp;
	if(/(ID=.+)$/){
		if(++$ids{$1} > 1){ 
			say $_, $ids{$1};
			next;
		}		
	}
	say;	
}