Perlcritic -4 fixes