sub addOne { my ($num) = @_; return $num + 1; }