Numeric Generate perl