for ($i=0;$i<(scalar(@np));$i++)
{
	if ($gap[$index]>=-200)
	{
		print OFILE "$coordinate[$index]\t$np[$index]\n";
	}
	else
	{
		print OFILE "End of block $index.\n";
		print OFILE "$coordinate[$index]\n";
		print OFILE "Start of block $index.\n";
	}
	
$index++;	
}

##</code><code>##

4775792 
	p

4775842
	p

4775852
	p

4775902
	p

4775952
	p

##</code><code>##

4775792 p

4775842	p

4775852	p

4775902	p

4775952	p

4776002	n