...
sub do_parse {
    local $parser_info = {
        tokens => [],
    };
    my $p6 = Parse::RecDescent->new(q{
        {
            push @{ $parser_info->{tokens} }, $item{letter}
        }
    });
};
...