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;