another cleanup session with perlcritic