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