dir.txt = [ dir1.txt, dir2.txt, dir3.txt]

use Win32::DirSize;
open (FILE, "dir.txt") || die "can not open file\n";