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