my $a = 10;

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

sub change {
    my $param = shift;
    $param++;
}