[Perl] SOS $cooky{cuenta} no la puedo leer :(

[René G. Morales D.]

please...,

son las 3:25 de la ma=F1ana, y ya se me acabaron la energ=EDas, as=ED com=
o las ganas=20
de seguir mi lucha titanica para saber por que mierda no puedo rescatar=20
$cooky{cuenta};

$ENV{'HTTP_COOKIE'} =3D "txtchange=3Dsip; cuenta=3D1; sepaso=3Dsi;";
@argu =3D split(/;/, $ENV{'HTTP_COOKIE'});
foreach $pair (@argu) {
($nombre, $valor) =3D split(/=3D/, $pair);
$cooky{$nombre} =3D "$valor";
}
$cooky{otramas} =3D cualquiercosa;

while (($nombre, $valor) =3D each(%cooky)){
print "$nombre =3D $valor\n";
}

print "$cooky{cuenta}"; # esta l=EDnea no me arroja nada. =BFPOR QUE?

comienzo resultado funci=F3n while() -----

cuenta =3D 1 # aqu=ED esta, osea existe. =BF?=3D(
otramas =3D cualquiercosa
sepaso =3D si
txtchange =3D sip

fin funci=F3n while() -----

nintendo, nintendo...,

salu

-------------------------------------------------
This mail sent through IMP: webmail.directo.cl