sub a{
    my $x = shift;

    return do{
        {
            print 'a';
            map {
                print 'b';
                last if $_ == $x;
                $_;
            } @_;
            print 'c';
        }
    };
}

my @data = 0 .. 9;

print for a( 5, @data );