foreach my $ind( @ {$indsent} ){ #where indsent is the list of sample
 21   my $i = 1;
 22   foreach my $snp (@ {$snparray} ){ list of snp
 23 
 24     my $genotype = $conn->executeArrRef('snp::Sequenom::getGenotypeCalls', $ind->[1], $snp->[1]);
 25 
 26     foreach my $geno( @ {$genotype} ){
 27       
 28       if(defined $geno->[9]){
 29 
 30 
 31         print "$i,$ind->[0],$geno->[9],$snp->[2],$snp->[0]\n";
 32 
 33       }
        }
      }