Try it this way. I believe it addresses both the real and conceptual errors and runs even faster:

    buk3 => sub {
        1+index $_[0], chop $_[ 1 ] or return for 1 .. length $_[ 1 ];
        1;
    },
[download]

Who says optimisation can't also result in correct code. Such fun :)