my @files = grep {/\.txt$/}  readdir DIR;