I would advise you to look into Perl::Tidy. It usually does a lot when it comes to "beautify" Perl.