sub capitalize { my ($word) = @_; $word = "\u$word"; return $word; }