my @txtFiles = grep{/\.txt/}<$inputfile> ;