awk -F"^" ' {
split($2,a," ")
split($6,b," ")
rr[a[1]":"$5":"b[1]]++
if(ri[a[1]":"$5":"b[1]]=="") ri[a[1]":"$5":"b[1]]=$1
}
END {
for (i in rr) if(rr[i]>1)  print i,ri[i]+0
}
 ' tmp/F1 | tee /dev/tty | 
awk ' FILENAME == ARGV[1] { x[$2]=1 ; next }
x[substr($0,1,6)+0] { printf "%s%382s\n",substr($0,1,6),"" ; next } 
	{ print } 
' - data/agend/HEAD > data/agend/HEADD 
