my @txtdatein = grep{ $_ =~ /\.txt/ }readdir(DIR);