use File::Copy;
...
open(OUTF, ">combine.csv") or die "Error opening combine.csv: $!";
for my $file (@files) {
 copy($file, \*OUTF) or die "Error copying $file: $!";
}
close OUTF;