Perl实现高水线算法

#! /usr/bin/perl;
use utf8;
 
sub max {
my($max_so_far) = shift @_; #数组中第一个值，暂时当成最大值。
foreach(@_){ #遍历数组@_
if($_>$max_so_far){ #看其它元素是否有比$max_so_far大的值。
$max_so_far = $_;} #如果有话，更新最大值变量
}
$max_so_far;
}
 
my $_MaxData = &max(2,3,8,5,10);
print $_MaxData;