* [perl] optimization on functions declarations