Learning Perl, 2nd Edition
By Randal Schwartz and Tom Christiansen

The following change was made in the 7/00 reprint:

[24] Top:
There was a line of code missing from the top of the page that now reads:

while ($name = <WORDSLIST>) {