my $lines; my @lines;

# read (1 line only). FOLDERZ.
open INPUT, "<Output1.txt";

@lines = <INPUT>;
close INPUT;

foreach $lines (@lines){
 print "Line: ", $lines, "\n";

        my $linesA;   
       #my @linesA = "c\:\\Other\\renamedir\\FOLDERZ";
        my @linesA = "c\:\\Other\\renamedir\\$lines";
        foreach $linesA (@linesA){
                my $directory = "$linesA";
                print ("Folder: ", $directory, "\n");
                opendir (DIR, $directory) or die $!;
                         while (my $fldr = readdir(DIR)) {
                         print "Files & Folders: ", $fldr, "\n";   }
                closedir(DIR);
          }
        }