use constant ARG1 => 0;
...
sub something{
   $something = $_[ARG1];
}