perl Params-Classify