my @files =  grep { ! /\.dat$/i } readdir DIR;