Select Code to Download

foreach my $sql ( 
    $sql_count_A_Ref_vs_Comp, 
...
    my $sth = $dbh_B->prepare( $sql ) or die "Cannot prepare: " . $dbh
+_B->errstr();
    $sth->execute() or die $sth->errstr;
}