my $x = 10;
foo(($x) x 2);
print "x = $x\n";

sub foo {
  $_[0]++;
  $_[1]++;
  print "@_\n";
}