opendir (my $tdh, "$dir/$tumordirs") or die "Unable to open subdir";