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++;
			}
			    
			   
		   }
    
        }
    
  }