perl make list elements uniqe

use strict;
use List::MoreUtils ':all'; # 这个包应该在perl 安装时就装了

 

my @list1 = ('1','1','2','2','3','4','4');
my @list2 = uniq @list1;

print @list1;
print "\n";
print @list2;

 

list1： 1122344

list2: 1234