"I have iterate above json data by below code"

The code you posted pulls in 10 modules, yet none of the code posted makes any use of them. You can't have run the code you posted as perl would have pointed out your mistake, which is visible if you look at the few lines. Again How do I post a question effectively?.