perlcritic whitespace fix