in reply to finding unique items in an array, from a text file
hiya - looks a bit overcomplicated, should be really simple. IMHO you don't need @lines, @uniq and %seen... only need one hash to do this.
I'd prefer to do something like this (off the top of my head, code not tested):
# open the file into FH my %uniq; $uniq{$_} = 1 while (<FH>); print join "\n", keys %uniq; # close the file
Hope that helps. All the best.
In Section
Seekers of Perl Wisdom