sub b{
    my $x = shift;

    goto sub {
        {
            print 'ba';
            map {
                print 'bb';
                last if $_ == $x;
                $_;
            } @_;
            print 'bc';
        }
    };
}

my @data = 0 .. 9;

print for b( 5, @data );