for my $file (sort grep -f, readdir $dh)