for $node (keys(%current)) {
      defined($prior{$node}) or ++$Created;
   }
   for $node (keys(%prior)) {
      defined($current{$node}) or ++$Deleted;
   }