just perlcritic clean up