perl Statistics-Descriptive-Discrete