my $directory; 

@files = grep {-f "$directory/$_" && /\.dat$/i} readdir DIR;