open (WRITE, ">counter.txt");
while (<WRITE>)
{
$counter = $_++;
}