paren.pl

my $lpnum = 1;
for ($i++; $token = $tokens->[$i]; $i++) {
    $token_type = $token->{type};
    if ($token_type == LEFT_PAREN) {
        $lpnum++;
    }
    elsif ($token_type == RIGHT_PAREN) {
        last if --$lpnum <= 0 ;
    }
    # ここでてきとうに処理する
}