my %seen; @seen{@list}=(); my @uniq = keys %seen;