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)

##</code><code>##

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