my $sthB_A = $dbh->prepare($Command_B);

my $count = 1;

foreach (@CHOICE_B[1 .. $elements_in_array_B]){
   $sthB_A->bind_param($count, $_);
   $count++;
}

my $result =  $dbh->do($sthB_A) or die "Couldn't do query: ".$dbh->errstr;