#! /usr/bin/perl    
use strict;    
use warnings;    
use File::Basename;    
use Text::CSV;    
  
my $csv = Text::CSV->new();    
  
my @files = glob("*.csv");    
  
foreach my $file (@files) {    
	my $filename = $file; $filename =~ s/\.[^.]*$//;   
	open my $temp_fh, '>', "Temp.csv" or die "cannot open Temp.csv: $!";    
	open my $csv_fh, '<', "$file" or die "cannot open $file: $!";    
	while (my $line = <$csv_fh>) {    
		next if ($. == 1);    
		$csv->parse($line);    
		my @row = $csv->fields;    
		push (@row, $filename);    
		$csv->combine(@row);    
		my $newline = $csv->string();    
		print $temp_fh "$newline\n";    
	}    
	close $csv_fh;    
	close $temp_fh;    
	rename ("Temp.csv", "$file");    
}

my ($filename, $filepath, $filesuffix) = fileparse($file);

my $filename = $file;  
$filename =~ s/\.[^.]*$//;