sub foo { $_[0] = 17 }
my $x=0;
foo $x;
print "$x\n"