Array indices are zero-based. The "ge" key is in the first element (i.e. index 0). So:

$decoded->{_embded}{stes}[1]{ge} # BAD
$decoded->{_embded}{stes}[0]{ge} # GOOD
$decoded->{_embded}{ries}[1]{te} # BAD
$decoded->{_embded}{ries}[0]{te} # GOOD
[download]

By the way, "Use of uninitialized value ..." is a warning, not an error. See "perldiag - Perl diagnostic messages" for a description of this warning.

Dear kcott, Thanks a lot for providing me these info. Just imagine that I have a very long of the data (Json) as i posted in the post. 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?? Regards

"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.

— Ken

is a warning, not an error.

It's still an error, just not an (immediately) fatal one.

Thanks a lot, it is really useful.