sub double_it {
   $_[0] *= 2;
}
my $x = 1;
print "\$x is $x\n";
double_it($x);
print "\$x now is $x\n";