Or you could do:

sub uniq
{
    my %u;
    @u{@_} = @_;
    return values %u;
}

@a = uniq @a;
[download]