open(OUTF,">>combine.csv") or dienice("Can't open CSV file: $!");
foreach my $file ( @files ) {
    open(INF,"$file") or dienice("Can't open data file: $!");
    print OUTF while <INF>;
    close(OUTF);
}
close(INF);