#!/usr/bin/perl -w                                                                                                                                                                                        
use strict;

my $name = 'aramis.DAT';
opendir $dh, '/directory';
my @dirs = readdir($dh);
closedir $dh;
for my $dir (@dirs){
    if (/$names/i){
	open (my $fh, '<', "/directory/$dir");
	. . .
        close $fh;
    }
}