%seen = ();
@uniq = ();
foreach $item (@list) {
    unless ($seen{$item})  {
        # if we get here, we have not seen it before
        $seen{$item} = 1;
        push(@uniq, $item);
    }
}