chomp;
	my($col1,$col2,$rest)=split(/\t/);
	my $ckey="$col1$col2"   #<= NO PERIOD!