undef $/;
open (FCMP, "anchor.txt") or die ("anchor.txt is not opened\n");
{
	local $/="\n";
	
	while(<FCMP>)
	{
		print "$_\n";
		chomp;
		@item = split(/\t/);
		$pii{$item[0]} = [$item[1], $item[2], $item[3]];

	}
}
{
local $/="\n";

while (<FCMP>)
{
my $an = $_;
print "$an\n";
}
}