for (@array) {
        #replace wildcards with specific titles of subjects
        s/Subjectx/$files[$s]/g;

    }