my $sth = $dbh->prepare(qq{SELECT st8a, st8b FROM sample WHERE id=$id});
$sth->execute() || die "Error executing query: " . $dbh->errstr . "\n";
my ($val1,$val2) = $sth->fechrow_array();