sub blah3 { 
my($look_for, @array)=@_; 

my @elements_we_want = 
    grep { $_ eq $look_for .. $_ eq 'MY SENTINEL'} @array,'MY SENTINEL';
return @elements_we_want[ 1 .. $#elements_we_want -1]; 
}