fix one more perl critic issue