Surpress perl critic warning