一段子程序CODE报错，请教了！

QUOTE:

#!/usr/bin/perl
use strict;
use warnings;
sub add_all{
　　　　　　my $sum=0; #将sum初始化
　　　　　　foreach $_(@_) { #遍历参数列表
　　　　　　　$sum+=$_; #累加每个元素
　　　　　　}
　　　　　　$sum; #返回sum即总和的值
　　　　}
　　　　$a=&add_all(3,4,5); #$a的值为3+4+5即12
　　　　$d=2*&add_all(1,2,3,4,5); #d的值为2*15即30