Select Code to Download

while ( <DNAFILE> ) 
{            
...
    $counter = $1;
}
print "$counter\t$_\n";

while ( <DNAFILE> ) 
{
...
          $counter++;
        }
}