for $node (keys(%current)) {
      if ($current{$node} eq "created") {
         ++$Created;
      } elsif ($current{$node} eq "deleted") {
         ++$Deleted;
      }
    }