Select Code to Download

{"expand":"names,schema","startAt":0,"maxResults":50,"total":1,"issues
+":[{"expand":"operations,versionedRepresentations,editmeta,changelog,
+transitions,renderedFields","id":"569825","self":"https://example.com
+/rest/api/2/issue/569825","key":"TEST-10756","fields":{"summary":" Au
+tomated Testing","issuetype":{"self":"https://example.com/rest/api/2/
+issuetype/10100","id":"10100","description":"","iconUrl":"https://exa
+mple.com/secure/viewavatar?size=xsmall&avatarId=26414&avatarType=issu
+etype","name":"Auto Testing","subtask":false,"avatarId":26414},"custo
+mfield_11150":{"self":"https://example.com/rest/api/2/customFieldOpti
+on/11347","value":"Yes","id":"11347"},"customfield_11780":[{"self":"h
+ttps://example.com/rest/api/2/customFieldOption/12841","value":"Sunda
+y","id":"12841"},{"self":"https://example.com/rest/api/2/customFieldO
+ption/12842","value":"Monday","id":"12842"},{"self":"https://example.
+com/rest/api/2/customFieldOption/12843","value":"Tuesday","id":"12843
+"},{"self":"https://example.com/rest/api/2/customFieldOption/12844","
+value":"Wednesday","id":"12844"},{"self":"https://example.com/rest/ap
+i/2/customFieldOption/12845","value":"Thursday","id":"12845"},{"self"
+:"https://example.com/rest/api/2/customFieldOption/12846","value":"Fr
+iday","id":"12846"},{"self":"https://example.com/rest/api/2/customFie
+ldOption/12847","value":"Saturday","id":"12847"}],"customfield_22380"
+:"2016-02-20","customfield_22181":"Jira TEST-10756 Automated Testing"
+,"customfield_11179":"2015-12-11","updated":"2016-01-06T14:15:14.000-
+0500","status":{"self":"https://example.com/rest/api/2/status/10034",
+"description":"","iconUrl":"https://example.com/images/icons/statuses
+/generic.png","name":"ProdStaged","id":"10034","statusCategory":{"sel
+f":"https://example.com/rest/api/2/statuscategory/4","id":4,"key":"in
+determinate","colorName":"yellow","name":"In Progress"}}}}]}

use strict;
use warnings;
...
print Dumper $perl{issues}[0]{fields} #get Global symbol "%perl" requi
+res explicit package name

print Dumper @$perl{issues} prints output as in original post in VAR1.