$ perl -wlE 'my $x=1; my @A=($x, $x++); say join $/, @A;'
2
1