[caracas-pm] problemas con script de arreglo hash

[Manuel Sanguino]

  bueno gracias a KiDD del foro perl en español por el script que me
envio ta muy bueno ... sin embargo cuando lo utilizo en mi script,  en
mi programa script, me da resultados erroneos.

el script

  while ( <$remote> )
        {
        $count++;
        $dat1=$_;
        chomp($dat1);
        $dat2=$dat2.$dat1;
        push(@arreglo,$dat2);
        $dat3=pop(@arreglo);

                                #acomodar datos en una arreglo hash

          foreach(split //, $dat3){     #itero carater por caracter

                print"$dat3\n";

                if(/([A-Z])/){
                        $Datos{$_} = '';
                        $memoria = $1;
                        }

                 elsif(/(\d)/){
                        $Datos{$memoria} .= $1;
                        }
                for my $key(sort keys %Datos){
                          print "$key: $Datos{$key}\n";
                        }

        }
}



este script lee el ultimo valor de una arreglo ..el ultimo valor tiene
algo como esto

A111B222C333D444E555 

y luego con este valor hace un split  y acomoda cada letra con los
valores  en un arreglo hash

bueno ahy un error  observen la salida ademas que me da otro valor q
no se de dond sale ...pero la verdad no me importa mucho... lo curioso
es que ese valor si lo imprime siempre

A111B222C333D4444
: 0
A: 111
B: 222
C: 333
D:						aca faltaron todos los varlores de D
A111B222C333D4444
: 0
A: 111
B: 222
C: 333
D: 4							aca faltaron  2 valores de D
A111B222C333D4444			observen que la variable los tiene
: 0
A: 111			
B: 222
C: 333
D: 44				aca falto un valor de D y 
A111B222C333D4444
: 0
A: 111
B: 222
C: 333
D: 444
A111B222C333D4444
: 0
A: 111
B: 222
C: 333
D: 444
A111B222C333D4444
: 0
A:
B: 222
C: 333
D: 444
A111B222C333D4444
: 0
A: 1
B: 222
C: 333
D: 444


como pueden ver a veces me imprime todos los valores y a veces no... a
que se debe esto??? porque ???? y observen q la variable tiene $dat3
todos lo valores ...???