my @dirs = grep {-d "$dir/$_"} readdir($gdh);

##</code><code>##

my @dirs = grep {/[^.]/ and -d "$dir/$_"} readdir($gdh);

##</code><code>##

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