[Madrid-pm] una de hash

[PEGG]

Hol@, es mi primera incursión en la lista, aunque estoy inscrito desde hace
ya un tiempo.
Estoy tratando de analizar un fichero de texto que comienza con dos
caracteres en mayúsculas seguido de un espacio, es la etiqueta del campo.
Tengo que identificar cada etiqueta y contar
 cuantas veces aparece, hasta aquí no hay ningún problema. Mi problema
comienza cuando lo imprimo, es necesario imprimirlo en la posición en que
aparece. Por ejemplo
RI
IP
CN
FS
OR

quiero que imprima como está arriba y no
IP = 286895
CN = 55
OR = 37
FS = 172915
RI = 18073

ni ordenado de mayor a menor y viceversa.
Alguien sabe si es posible????
Esto es lo que hice
while (<>)
{
    @campos=split(/ /,$_);
    $todo{"$campos[0]"}++;
}
foreach my $campo (sort {$todo{$a} <=> $todo{$b}} keys %todo)
{
    print "$campo = $todo{$campo}\n";
}

De antemano gracias!!
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: http://mail.pm.org/pipermail/madrid-pm/attachments/20080126/1b454a04/attachment.html