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;