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);