cleanup to please perlcritic