perl - 编程 Perl 第 5 版第 4 章练习

Question

该练习让您构建两个子例程.. &average（计算数字列表的平均值）和 &above_average（将打印出列表中大于平均值的数字）。

他们为 above_average sub 给出的答案是：

sub above_average
{ my $average = average(@_);
  my @list;
 foreach my $element (@_) {
 if ($element > $average ){
    push @list, $element;
    }
   }
 @list;
}

随附的文字询问“为什么使用控制变量 $element 而不是 Perl 最喜欢的默认 $_？”

这是为什么？我实际上使用 $_ 写了我的答案，它似乎有效.. 所以我很好奇为什么作者觉得有必要强调他使用 $element 而不是 $_。

谢谢！