$ perl -MData::Dumper -E 'print Dumper %hash = "here" => $_ for grep { -d $_ } qw{a b c .}'
$VAR1 = 'here';
$VAR2 = undef;
$VAR3 = '.';