my $fileoutput = $name." COMB".".csv";		
open (OUTPUT,">Input/$fileoutput") or die "Could not open output file\n";
foreach my $gene (keys %mergedhash) {
	print OUTPUT "$gene",",","$mergedhash{$gene}","\n";
}
close (OUTPUT);