my @files = grep /\.dat$/, readdir DIR;