$filelist = "C:\Users\cign\Desktop\printFile.txt"; my @files = (file1, file2, file3); open(WRITEFILE, ">$filelist") || die("ERROR: unable to open file \n"); select WRITEFILE; foreach my $file (@files){ print WRITEFILE ; #"$file\n"; } close WRITEFILE;