my @a = ($c, ++$c); # @a is now (3, 3)