sub blarg { $i = $i+1; return $i; }