use constant BYREF=>0;

sub something{
    $_[BYREF] = 1000 if $_[BYREF] > 1000;
    ...
}