my $value = 1;

editValue ($value);
print $value;


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

##</code><code>##

sub editValue {
    my $value = \$_[0];

    $$value++;
}