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