for $filename (@filelist) { ...