Select Code to Download

my $query2 = "SELECT " . join(",", @q_return) . " FROM rma_list WHERE 
+(" . join(",", (keys %q_search)) . ") = (" . join(",", @q_names) . ")
+";
my $sth = $dbh->prepare($query2) or die "Couldn't prepare query: " . $
+dbh->errstr;
$sth->execute();

my $query = "SELECT " . join(",", map { "?" } @q_return) . " FROM rma_
+list WHERE (" . join(",", map { "?" } (keys %q_search)) . ") = (" . j
+oin(",", map { "?" } @q_names) . ")";
my $sth = $dbh->prepare($query) or die "Couldn't prepare query: " . $d
+bh->errstr;
$sth->execute(@q_return, (keys %q_search), @q_names) or die "Could not
+ perform query: " . $sth->errstr;

     DBI::db=HASH(0x1b76164) trace level set to 0x0/2 (DBI @ 0x0/0) in
+ DBI 1.607-ithread (pid 3392), referer: http://localhost/cgi-bin/temp
+.cgi
     -> prepare for DBD::mysql::db (DBI::db=HASH(0x1b761a4)~0x1b76164 
+'SELECT ?,?,?,?,? FROM rma_list WHERE (?) = (?)') thr#233e34, referer
+: http://localhost/cgi-bin/temp.cgi
...
 <-- dbd_st_finish, referer: http://localhost/cgi-bin/temp.cgi
 \tFreeing 7 parameters, bind 0 fbind 0, referer: http://localhost/cgi
+-bin/temp.cgi
     <- DESTROY= undef at Carp.pm line 356, referer: http://localhost/
+cgi-bin/temp.cgi