while (defined( my $fn = readdir($dh) )) {
   my $qfn = "$dir_qfn/$fn";
   ...
}