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