my $a = 10;

print "$a ";
change($a);
print "$a";

sub change {
    $_[0]++;
}