opendir(D, "data");
@data = grep{$_ =~ /\.txt$/i} readdir(D);
closedir(D);