my ($id_snp, $id_assay, $session,  $load_set) = @_; #these variables
   my (@lines) = @_;          #this array 
   my $plate_id = $cgi->param('plate');
   my $barcode = Verifynumber($plate_id);
   my $plate = $barcode->{Number};
   my $dna_well;
   $dna_well = $STATEMENTS->get("geno_manifest.sql_lib::get_dnawell", [$plate, lc$lines[2]]);
   print "dna_well: $dna_well->[0]->[0]";
   print "SNP: $id_snp, assay:$id_assay , session $session, load_set:  $load_set";