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