perl -le 'my @a; my ($x, $y, $z) = (1, 2, 3); @a = ($x, $y, $z); print $a[1]; $a[1]++, print $a[1];'
__output__
2
3