sub increment { ++$_[0]; } $num=0; increment($num); print $num,"\n";