1,WG0045068-DNA,A01,0,102186_A01_WTCCCT519791,Homo sapiens,male,,13,50,-,,0,,,,Blood
2,WG0045068-DNA,B01,0,102186_B01_WTCCCT519793,Homo sapiens,male,,13,50,-,,0,,,,Blood
3,WG0045068-DNA,C01,0,102186_C01_WTCCCT519805,Homo sapiens,female,,13,50,-,,0,,,,Blood
4,WG0045068-DNA,D01,0,102186_D01_WTCCCT519796,Homo sapiens,male,,13,50,-,,0,,,,Blood
5,WG0045068-DNA,E01,0,102186_E01_WTCCCT519797,Homo sapiens,female,,13,50,-,,0,,,,Blood

##</code><code>##

6,WG0045066-DNA,A01,0,102176_A01_WTCCCT527545,Homo sapiens,female,,13,50,Nucleon BACC3 kit,,0,,,,Blood
7,WG0045066-DNA,B01,0,102176_B01_WTCCCT527498,Homo sapiens,female,,13,50,Nucleon BACC3 kit,,0,,,,Blood
8,WG0045066-DNA,C01,0,102176_C01_WTCCCT527510,Homo sapiens,male,,13,50,Nucleon BACC3 kit,,0,,,,Blood
9,WG0045066-DNA,D01,0,102176_D01_WTCCCT527522,Homo sapiens,male,,13,50,Nucleon BACC3 kit,,0,,,,Blood

##</code><code>##

elsif($output eq "Inhouse") {
     	
        my $n= 1;
    	print OUT ("Row,Institute Plate Label,Well,Is Control,Institute Sample Label,Species,Sex,Comments,Volume (ul),Conc (ng/ul),Extraction Method,WGA Method (if Applicable),Mass of DNA used in WGA,Parent 1,Parent 2,Replicate(s),Tissue Source\n");
		print OUT "\n\n";
		
        foreach my $sam(@order){
		
		    if($save{$sam}{clone} =~ /BLANK|Water/i){
			print OUT "$n,$save{$sam}{platename},$save{$sam}{well},,$save{$sam}{plateid}$save{$sam}{well}_BLANK,,,BLANK,,,,,,,,,,\n";
			$n++;
		    }
		    
		    if (!$save{$sam}{platename}) {
			print OUT "$n,$save{$sam}{plateid},$save{$sam}{well},$save{$sam}{case},$save{$sam}{plateid}_$save{$sam}{well}_$save{$sam}{clone},Homo sapiens,$save{$sam}{gender},,$save{$sam}{vol},50,$save{$sam}{extmethod},,,$save{$sam}{father},$save{$sam}{mother},,$save{$sam}{source}\n";
			$n++;
		    }
		    
		    else {
		        #unless ($n == $save{$sam}{count}) {
		        print OUT "$n,$save{$sam}{platename},$save{$sam}{well},$save{$sam}{case},$save{$sam}{plateid}_$save{$sam}{well}_$save{$sam}{clone},Homo sapiens,$save{$sam}{gender},,$save{$sam}{vol},50,$save{$sam}{extmethod},,0,$save{$sam}{father},$save{$sam}{mother},,$save{$sam}{source}\n";
			$n++;
			}
			    
			   
		   }
    
        }
    
  }