my %hash = "here" => $_ for grep { -d $_ } qw{a b c .};