Going to CPAN soon (as soon as I get my JAPHY namespace) will be Tie::Array::Unique which does all the hard work for you.

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;