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