Perltidy
Perlcritic
Give a bit more descriptive (and less ambiguous) names to variables
Add a comment
More perltidy