[perl] Por qué no vaaaaaaaaaaaaaaaaaaaaa

[Jose Ignacio]

Hola, a ver algún guru que me diga por que esto no escribe nada en el
fichero, estando todo bien. 

open(FF,"+<fichero.dat");
$numdonde=3;
while (<FF>) {
		if ($ooo==$numdonde) {
			chop($_);
			$_++;
			print FF "$_\n";
			last;
			}
		$ooo++;
		}
close FF;
--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : cancelacion perl