else {
		print OUT join ('~', @field) . "\n";
		# print OUT join '~', @field;
		$incount = $incount + 1;
	}