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