perl CleanCode