Also you can force this into array context, instead of the default list context, just by doing something like this:

use strict;

my $a = 100;
my $b = 200;
my $c = ($a, $b++)[0];# force it into array context
print $a, "\n";
print $b, "\n";
print $c, "\n";
[download]

This prints:

100
201
100
[download]