sub add-one($n is rw) {
    $n += 1;
    $n;
}

my $n = 3;
add-one($n) == 4 or die "Wrong value";
$n == 4 or die "Wrong value";