more perlcritic fixing