my %file1Hash;
my $value4;
	
open my $file1, "<","design.rpt.csv" or die $!; 
open my $file2, "<","summary.rpt.csv"or die $!; 
open my $outfile_1, ">", "combined.rpt.csv" or die $!;
	
while(<$file1>){
		
	my($line) = $_; 
	chomp $line; 
	my($key,$value1,$value2,$value3) = $line =~ /(\w+),(\d+.\d+),(.\d+\s+\d+.\d+.)/g; 
	$value4 = "$value1,$value2,$value3,";
	push @{$file1Hash{$key}}, $value4; 
		} 
		
while(<$file2>){ 
		
	my ($line) = $_; 
	chomp $line; 
	my($key,$value1,$value2,$value3,$value4,$value5,$value6,$value7) = $line =~ /(\w+|\S+),(\d+),(\d+),(\d+),(\d+.\d+),(\d+.\d+),(\d+),(\d+.\d+)/g ; 
		
	if (exists $file1Hash{$key}) {
		
		print $file1Hash{$key}.",".$line."\n";
			
		    } 
	else {
		#  print $line."\n";
		    } 
} 

close $file1;
close $file2;
close $outfile_1;
	
exit 0;