sub clean {
   our $node; local *node = \$_[0];  # Alias
   return if !defined($node);

   my $reftype = ref($node);
   return if !$reftype;

   if ($reftype eq 'REF' || $reftype eq 'SCALAR') {
      clean($$node);
      $node = undef if !defined($$node);
   } elsif ($reftype eq 'ARRAY') {
      clean($_) for @$node;
      @$node = grep defined, @$node;
      $node = undef if !@$node;
   } elsif ($reftype eq 'HASH') {
      clean($_) for values(%$node);
      delete @{$node}{ grep !defined($node->{$_}), keys(%$node) };
      $node = undef if !keys(%$node);
   }
}