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