use 5.030;
use feature 'signatures';

sub incr($x) {
    ++$x;
}

my $value = 0;
say incr($value);	# 1
say $value;		# 0 (immer noch)