Cómo puedo verificar si existen claves y arreglos en JSON?

Tengo un archivo JSON y quiero verificar si existen o no las claves, si las claves están vacías o no.

Ya he hecho este tipo de verificación en el siguiente script.
Pero aquí tengo “children” que es un array vacío.
¿Cómo puedo ver si este array existe o no y si está vacío o no?

Aquí se muestra el ejemplo JSON:

{
  "id": "Store::STUDIO",
  "name": "Studio",
  "categories": [
    {
      "id": "Category::556",
      "name": "Cinéma",
      "children": []
    },
    {
      "id": "Category::557",
      "name": "Séries",
      "children": []
    }
  ],
  "images": [
    {
      "format": "iso",
      "url": "http://archive.ubuntu.com/ubuntu/dists/bionic-updates/main/installer-amd64/current/images/netboot/mini.iso",
      "withTitle": false
    }
  ],
  "type": "PLAY"
}

Aquí está el script:

“`
#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use JSON qw( decode_json );
use JSON qw( from_json );

<h1>JSON file</h1>

my $json_f = '/home/test';

<h1>Variable</h1>

my $curl_cmd = "curl -o /dev/null –silent -Iw '%{http_code}'";

<h1>JSON text</h1>

my $json_text = do {
open (TOP, "<", $json_f);
local $/;
<top>
};

my $decoded = from_json($json_text);

<h1>Display value provider if exist</h1>

my $provider = $decoded->{"categories"}[0]{"provider"};
print $provider, "\n" if scalar $provider;

<h1>Display value children if exist</h1>

my @child = $decoded->{"categories"}[0]{"children"};
print $child[0], "\n" if scalar @child;

<h1>Checking an url is exist</h1>

my $url_src = $decoded->{"images"}[0]{"url"};
my $http_res = qx{$curl_cmd $url_src}; # Checking if URL is correct

<h1>Display categories with others values</h1>

my @categories = @{ $decoded->{'categories'} };
foreach my $f ( @categories ) {
print $decoded->{"id"} . "|" . $f->{"id"} . "|" . $f->{"name"} . "|" . $http_res . "\n";
}
“`