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";

##</code><code>##

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: 5381817SNP: True, assay:3200768 , session A2, load_set: EPS31807

##</code><code>##

True    3200768 A1      EPS316120       8.535   17.575  GG      0.90
True    3200768 A2      EPS318077       8.820   17.126  GG      0.95
True    255     A3      EPS316121       17.084  13.650  GA      0.97
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