If all the files to be opened are in the same directory why not try this?

$path = "C:\\A";
my $file;

opendir (DIR, "c:\\A") || die "Cannot open file directory: $!";
while (defined ($file = readdir(DIR) )) {
  next if $file =~ /^\.\.?$/; #This ignores the parent directory that 
+readdir returns
  open (FILE, "$path\\$file") || die "Cannot open file: $!";
  close FILE;
}
[download]

elbow