for($i = 0; $i <= $last_dir; $i++) {
  ($data[i]{deleted_file}, $void, $data[i]{the_dir}, $data[i]{first_pointer}, 
   $data[i]{last_pointer}, $data[i]{has_subdir}, $data[i]{has_iden})
              = split (/\"\|/, $tmp_2[$i], 7);
            #printf ("sort_dirs_debug2: %5d fp: %5d, lp: %5d %s\n", $i, $first_pointer[$i], $last_pointer[$i], $the_dir[$i]);
}