# FIND CURRENT DIRECTORY STRUCTURE AND PRINT TO "CATALOG_CURRENT.TXT"
sub myList {
   if ( -d ) {
      print CURRENT "$File::Find::name\n";       
   }
}

# GIVE "DELETED" VALUE TO KEYS IN "PRIOR" HASH THAT NO LONGER EXIST
sub MarkNotExist {
foreach $node (keys(%prior)) {
   ($prior{$node} = "deleted"), (++$change_count) if !exists $current{$node};
   }
}

# GIVE "CREATED" VALUE TO KEYS IN "CURRENT" HASH THAT NOW EXIST
sub MarkNewExist {
foreach $node (keys(%current)) {
   ($current{$node} = "created"), (++$change_count) if !exists $prior{$node};
   }
}