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

##</code><code>##

$x is 1
$x now is 2