#!/usr/local/bin/perl -w

@fruits = ("Apples", "Bannanas", "Brocholi", "Baseball", "Barometer", "Coconuts");
foreach (@fruits){
    $first = $1 if ?(B.*)?;
    $last  = $1 if /(B.*)/;
}
print "First B word: $first\nLast B word: $last\n";