my $value = 1;

editValue ($value);
print $value;


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