Select Code to Download

next if /^#/;

...
        $previous_data_ar,
        \%acty_for_callout_at_sub_loc )
    unless %acty_for_callout_at_sub_loc;

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

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