use JSON::XS qw(decode_json);

$text = getMyDownloadedJson();

my $content = decode_json($text);
say $content->{'Body'}{'Data'}{'PAC'}{'Values'}{'1'};