BEGIN{FS="\t"}{
    f[$1]=1;
}END{
    for (i in f){
#	print i;
	while (getline<i){
	    en=$4;
	    split($7,a,"_");
	    k=++o[en,a[4]];
	    oa[en,a[4],k]=$0;
	}
	close(i);
    }
    for (x in o){
	n=o[x];
	if(n>1){nh++;	    
	    for (k=1;k<=n;k++){
		if (k<n){
		    printf("%s\t",oa[x,k])
		}else{
		    printf("%s\n",oa[x,k])
		}
	    }
	}
    }
    print "n_GT1 "nh>>"/dev/stderr";
 }