perlcritic cleanup