opendir(my $dh, $some_dir) or die "can't opendir $some_dir: $!";
my @subdir = grep { /^[^.]/ && -d "$some_dir/$_" } readdir($dh);
closedir $dh;