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

incr($foo);
incr(1);