perlcritic fixes