Select Code to Download

 my ($id_snp, $id_assay, $session,  $load_set) = @_; #these variables
   my (@lines) = @_;          #this array 
...
   $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";

SNP: 8925827, assay:67 , session 5884, load_set: 227dna_well: 5381721(
+ which is right.
and the rest of the results are the values of the scalar are  
from the array @lines).
SNP: True, assay:3200768 , session A1, load_set: EPS316120dna_well: 53
+81817SNP: True, assay:3200768 , session A2, load_set: EPS31807

True    3200768 A1      EPS316120       8.535   17.575  GG      0.90
True    3200768 A2      EPS318077       8.820   17.126  GG      0.95
...
True    3200768 A4      EPS318078       8.541   16.653  GG      0.94
True    16744448        A5      EPS316122       18.267  3.880   AA    
+  1.00
True    255     A6      EPS318079       13.130  11.004  GA      0.91