fix some perlcritic warnings