$ ls -F
fred  testFBF*  xxx/  yyy/
$ perl -Mstrict -Mwarnings -E '
my @dirs = qw{ fred testFBF xxx yyy };
@dirs    = map {
   -d $_
   ? $_
   : do { warn qq{Not a directory: $_\n}; () }
   } @dirs;
say qq{Directories: @dirs};'
Not a directory: fred
Not a directory: testFBF
Directories: xxx yyy
$