my $c = 2; my @a = ($c+=1, "$c"); print "@a"; __END__ 3 3