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