my @files1 = grep {/\w/} readdir(DIR1);
my @files2 = grep {/\w/} readdir(DIR2);
[download]

When you use readdir to get the file names, you only get the file names.    To access the actual files you have to prepend the directory name to the beginning of the file name otherwise you are trying to access the files in the current directory.