for my $subdir_qfn (
   grep {
      if (stat($_)) {
         -d _
      } else {
         warn("Skipping \"$_\": Can't stat: $!\n");
         0
      }
   }
      glob("\Q$dir_qfn\E/*")
) {
   ...
}