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

    $$value++;
}