print "@data\n";

##</code><code>##

print OUTF "@data\n";

##</code><code>##

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);