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