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

##</code><code>##

while (<*.dat>) {
 my $file = $_;
 open(...etc.,etc.);
 ...
 }
}