code cleanup (Perl::Critic)