my $x = 1;

mult($x);

print "$x\n";

sub mult {
  $_[0] *= 10;
}