in reply to using fields in perl
A similar question was posted a while back. Take a look at some of the responses (like a golfed solution by dave_the_m) at this node.
In Section
Seekers of Perl Wisdom
in reply to using fields in perl