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