in reply to Perl DBI - returning a single value
If you are only fetching one row then:
my ($Count_A_ANY) = $dbh_B->selectrow_array(... [download]