fix perlcritic
fix perlcritic