my $value = 100;
changeit( $value );
print "$value\n";

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

__OUTPUT__
101