Re: unique words

[AnomalousMonk]

c:\@Work\Perl\monks\rasy>perl -wMstrict -le
"use List::MoreUtils qw(uniq);
 ;;
 my @uniques = uniq map { chomp;  $_; } <>;
 print qq{(@uniques)};
"  < words.txt
(foo bar bax boff food wink wank fool zink zank)

words.txt:

foo
bar
foo
bax
boff
foo
foo
food
wink
wank
fool
zink
zank
foo