1、一个数组参数的出传入：

#!/usr/bin/perl
use strict;
use warnings;
my @a = 1..10;
my $total = sum(\@a);

sub sum {
        my ($tt) = @_;
        print "$tt\n";
        my $total = 0;
        foreach (@$tt){
                $total +=; 

	}

	return $total;

}
print "$total\n";

输出结果：

ARRAY(0xbc92000)
55

#：由此可以看出，一个数组的其实是一个地址，然后遍历该地址就可以处理这个数组的值。

2、多个数组参数的传入：

#：

#：

#：

#：

#：

#：

#：

#：