in reply to No strict refs

First I would refactor it to use meaningful variable names

In Section Seekers of Perl Wisdom