Using @_ directly
sub addone { ++@_[0]; } $value = 1; addone($value); print "The value of \$value = $value.\n";