fix perlcritic error