"And I wand print all what I want by a loop to parse all the data. Can you suggest any module or way to do that??"

Unfortunately, that's far too vague to provide a definitive answer. I don't know what "all what I want" might be; I don't know what sort of "loop" is needed; and, I don't know in what way you want to "parse all the data".

As a general answer, the processing of complex data structures is described, with many examples, in "perldsc - Perl Data Structures Cookbook".

You'd also do well to read "How do I post a question effectively?" and "Short, Self-Contained, Correct Example". A better question will get a better answer.

By the way, I've noticed that the issue of "Use of uninitialized value ...", in "Re^2: parse json data with underscore symbol", that I originally responded to, was duplicated in "Re^3: parse json data with underscore symbol". Furthermore, you've also duplicated the question that I'm currently replying to ("Re^4: parse json data with underscore symbol") in "Re^5: parse json data with underscore symbol". Please don't do that.