perl best practices