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