perlcritic fix