Cleaned up following Perl::Critic recommendations