in reply to Help with Text::ParseWords

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