perl

　sub add_all{
　　　　　　local($sum); #将$sum定义为局部变量
　　　　　　$sum=0; #将sum初始化
　　　　　　foreach $_(@_) { #遍历参数列表
　　　　　　　$sum+=$_; #累加每个元素
　　　　　　}
　　　　　　$sum; #返回sum即总和的值

　　　　}