DB<115> $a="aa"; print --$a -1