next if /^#/;

last if /#{5,}/;

warn "B-Fruit:  '$_'\n" foreach grep { /^b/ } @fruits;

build_acty_for_callout_at_sub_loc_hash(
        $fxhr,
        $previous_data_ar,
        \%acty_for_callout_at_sub_loc )
    unless %acty_for_callout_at_sub_loc;

##</code><code>##

warn "B-Fruit:  '$_'\n"
    foreach grep { /^b/ } @fruits;

##</code><code>##

foreach ( grep {/^b/} @fruits ) {
    print LOGFILE "Found B-Fruit '$_'\n;
    warn "B-Fruit:  '$_'\n";
}