Here's another way:

sub uniq
{
    my %h;
    @h{@_} = (0..$#_);
    @_[ sort { $a <=> $b } values %h ]
}
[download]