I recommend using the uniq function from List::MoreUtils. ... If you can't or don't want to use this module ...

Anonymonk: ... just take a look at the code in it to see how it works; i.e., Steal This Code!