for($i = 0; $i <= $last_dir; $i++) {
            @{$data[i]}(qw(deleted_file void the_dir first_pointer last_pointer has_subdir 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]);
}