Treat argument as string in Tcl 'expr' statement

will help you Here's the related question about how auto incrementing works: Autoincrementing letters in Perl
Like the docs explained, basically you need the variable to

#!/usr/bin/perl
use strict;
use warnings;


my $test = "1000";
for (0..100) {
    $test = increment($test);
}
print $test . "\n";

$test = "M2V3";
for (0..100) {
    $test = increment($test);
}
print $test . "\n";


sub increment {
    my ($str) = @_;

    my @letters = reverse split //, $str;

    my $add = "";
    my $increment = 1;
    my $result = "";


    for my $let (@letters) {
        if ( $increment == 1 ) {
            ++$let;
        }
        if ( $let =~ /(.)(.)/ ) {
            $add = $2;
            $increment = 1;
        } else {
            $add = $let;
            $increment = 0;
        }
        $result = $add . $result;
    }
    return $result;
}

1101
M3F4

it should still fix some issue The ambiguity results from the fact that you allow unary operators (- expr), so 2 - 2 can be parsed either as a simple subtraction (yielding 0) or as an implicit product (of 2 and -2, yielding -4).
It's clear that subtraction is intended (otherwise subtraction would be impossible to represent) so it is necessary to ban the production expr: expr expr if the second expr on the right-hand side is a unary operation.

term: NUM
    | '(' expr ')'
unop: term
    | '-' unop
    | '+' unop
conc: unop
    | conc term
prod: conc
    | prod '*' conc
    | prod '/' conc
expr: prod
    | expr '+' prod
    | expr '-' prod

this one helps. You can convert it to a number, like this:

jq --arg ARG1 1 '.[$ARG1|tonumber]' <<< '["foo". "bar"]'
"bar"

will help you There are a couple of issues with that grammar.
There isn't really a problem with APPSOME1, which takes either expr or array, expr. As soon as the comma is seen, it is clear which option to choose (but see below about parentheses). However, APPSOME2 is not going to work:

APPSOME2: expr ',' expr
        | array ',' expr ',' expr

args_variable
    : APPVARIABLE
    | '(' args_variable ')'
expr: args_variable
    | '(' expr ')'

APPSOME1 (((ARRAYNAME))), expr

APPSOME1 expr
APPSOME1 array expr
APPSOME2 expr, expr
APPSOME2 array expr, expr

I hope this helps you . You can use SQLSyntax.createUnsafely to convert your string into SQLSyntax:

def selectDQTableAndSiteList(schemaName:String) (implicit s:DBSession = AutoSession) : List[String] = {
   val schema = SQLSyntax.createUnsafely(schemaName)
   sql"select CONCAT(name, ${"#"} , age) as tablename from ${schema}.employee where status = 'Y'".map(_.string("tablename")).list().apply()
}