syn-p5: parse $#arr into length-1, and all special scalar vars from perlvar

@x=(1); $#x => 0
(assign (msg ("@x") list (expr (value (1)))), expr (minus (expr (msg ("@x"), msg ("length")) expr (value (1)))))