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";