Select Code to Download

my $value = 1;

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

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

    $$value++;
}