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