use strict;
use warnings;
use v5.12;

use Bmap;

my @array = qw/ this that and the other /;
    
my @nexted = bmap{ $_ eq 'and' && bnext(); $_ } @array;
my @lasted = bmap{ $_ eq 'and' && blast(); $_ } @array;
my @bailed = bmap{ $_ eq 'and' && bbail(); $_ } @array;

say "'next' version: @nexted";
say "'last' version: @lasted";
say "'bail' version: @bailed";