perl complex color