Perl快速进行数组取最大值，最小值以及去重

我们在使用perl处理数据的时候，最经常用到的则是对数组取最大最小值，以及去重复。

一般采用下面的代码进行操作：

use strict;
use List::MoreUtils ':all';
use List::Util qw/max
min/;

my @arr=c(1,1,2,2,3,4,5,5,5,6,7,8,9,9,10);
my $max=max @arr; ## 取最大值
my $min=min @arr; ## 取最小值
my @uniq=uniq @arr; ## 数组去重复

print "Max:\t$max\n";
print "Min:\t$min\n";
print join";",@uniq;