my $rv = $dbh->do($Command_B, {}, @CHOICE_B) or die "Couldn't do query: ".$dbh->errstr;