use strict;
use warnings;
use Benchmark qw( cmpthese timethese );

our $VERSION = '1.00';

my $wanttime = $ARGV[1] || 5;

use JSON qw( -support_by_pp -no_export ); # for JSON::PP::Boolean inheritance
use JSON::XS ();
my $json = <>;
my perl = JSON::XS::decode_json $json;

print Dumper $perl{issues}  #get Global symbol "%perl" requires explicit package name
print Dumper $perl{issues}[0]{fields} #get Global symbol "%perl" requires explicit package name

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