my %uniq; @uniq{@orig_list} = @orig_list; my @unique_list = keys %uniq;