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

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