close(RDIR);

foreach $file(@fileList)   {
   open (WRITEFILE, ">/Perl/ExtractedData/data.txt");
   open(READFILE, "</Perl/BugFiles/$file");