foreach $prt_nombre (keys (%db)) {
		foreach $prt_indice (0..$#{ $db{$prt_nombre}} ) {
        printf ficherolog "$ahora - Operativa: $db{$prt_nombre} || Veces encontrada: $db{$prt_nombre}[$prt_indice]{'contador'}\n";
		}

}