in reply to Help with Text::ParseWords

and also 
print "$i, $_\n";

[download]

In Section Seekers of Perl Wisdom