while(<DATA>)
{
	#...
    if(($x[0] eq 's') && ($x[3] eq 'AGT'))
    {
        $file_position = tell(DATA);
		#...
        while(<DATA>)
        {
			#...
        }
        seek(DATA,$file_position,SEEK_SET);
    }
}