Perlcritic fixes