Apply perlcritic suggestions