将参数传递给Perl中的子例程
您可以像在任何其他编程语言中一样将各种参数传递给Perl子例程，并且可以使用特殊数组@_在函数内部对其进行访问。因此，函数的第一个参数在$_[0]中，第二个参数在$_[1]中，依此类推。
您可以像任何标量一样将数组和散列作为参数传递，但是传递多个数组或散列通常会导致它们失去各自的标识。因此，我们将使用引用（在下一章中进行说明）来传递数组或哈希。
让我们尝试以下示例，该示例获取一个数字列表，然后输出其平均值-
示例
#!/usr/bin/perl
# Function definition
sub Average {
# get total number of arguments passed.
$n = scalar(@_);
$sum = 0;
foreach $item (@_) {
$sum += $item;
}
$average = $sum / $n;
print "Average for the given numbers : $average\n";
}
# Function call
Average(10, 20, 30);输出结果
执行以上程序后，将产生以下结果-
Average for the given numbers : 20