open(MYOUTFILE, ">output.txt"); #open for write, overwrite
my $filecount = 0;
my @filenames;

###code that assigns all the csv file names in the present folder 
#to an array and counts them

foreach $inputfilename (@filenames)
{
		open INPUT, "<$inputfilename";
		@lines = <INPUT>;
		close INPUT;
		
		foreach $row (@lines)
		{           
		         print MYOUTFILE ("$row\n");
		}
		
		close INPUT; 
}
close MYOUTFILE;
my $ovr = <STDIN>;
exit;