Name_1;Name_2
	
1;2
3;4

##</code><code>##

Name_1;Name_2
	
5;6
7;8

##</code><code>##

use strict; 
use diagnostics;
use warnings;

my $infile;
my @FILES = glob('file_*');
my $outfile = "outfile.csv";

open(OUTFILE, ">$outfile");

foreach $infile(@FILES){
	open(INFILE, "<$infile");
	while (my $line = <INFILE>){
		print OUTFILE $line;
		}	
	close INFILE;
}	

close OUTFILE;

##</code><code>##

Name_1;Name_2
	
1;2
3;4
Name_1;Name_2
	
5;6
7;8

##</code><code>##

Name_1;Name_2
	
1;2
3;4
5;6
7;8