my @files = grep { ! -d qq{$myDir/$_} }
            grep { /^\w/ }
            readdir( I );