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

__output__
1 2 2 3 3 4