sub addOne { $_[0]+=1 }
my $x = 1;
addOne($x);
print $x;