fix some perlcritic issues