Program Repair Shop

`GrabFileList`

How to keep the file lists from the various InputDIRs separate?
One option: Use a more appropriate data structure:

        sub GrabFileList {
           my %result;
           for my $dir (@InputDIR) {
             opendir (FILELISTDIR,$dir);
             push @{$result{$dir}}, readdir FILELISTDIR;
             closedir FILELISTDIR;
           }
           return %result;
        }

The result is:

        ( './wuexport' => [ file1, file2, file3... ],
          './cuexport' => [ file6, file7, file8... ],
        );

This keeps the file lists from the various InputDIRs separate