foreach $node (keys(%current)) {
      if ($current{$node} eq "created") {
         foreach $node2 (keys(%prior)) {
            while ($node2 =~ m/\/.+(\S)/) {

##</code><code>##

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

##</code><code>##

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