Select Code to Download

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

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

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

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

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