for my $subdir_qfn (glob("\Q$dir_qfn\E/*")) {
   stat($qfn)
      or do {
         warn("Skipping \"$subdir_qfn\": Can't stat: $!\n");
         next;
      };

   next if !-d _;

   ...
}