Select Code to Download

perl -le '($x, $y, $z) = (1, 2, 3); @a = ($x, $y, $z); print join ( " 
+", map { $_++, $_ } @a )'

__output__
1 2 2 3 3 4

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