Perl -- 数组和hash -- 判断元素是否存在数组中

判断元素var是否存在于varlist数组中：

#my @varlist = (1,2,3,4);
#my $var = 2;
my %vars = map { $_ => 1 } @varlist;
if(exists($vars{$var})) {...... Logic}

往varlist中加入新的非重复元素：

$vars($var2)=1;
@varlist = keys %vars

对varlist排序：

sub sort_method{}
my new_varlist = sort(varlist, sort_method);#生成新的数组
print join("\n", new_varlist);