mysub($c, $c+=1)

##</code><code>##

@a = ($c, $c+=1)