foreach my $file (@filenames) {
    open (INFILE, "$file") || die ("Can't open file $file$!");
    print OUTFILE1 <INFILE>;
    close (INFILE);
}