#! /usr/bin/perl;
use utf8;
sub max {
my($max_so_far) = shift @_; #數(shù)組中第一個值，暫時當成最大值。
foreach(@_){ #遍歷數(shù)組@_
if($_>$max_so_far){ #看其它元素是否有比$max_so_far大的值。
$max_so_far = $_;} #如果有話，更新最大值變量
}
$max_so_far;
}
my $_MaxData = max(2,3,8,5,10);
print $_MaxData;
第一行對數(shù)組@_進行shift操作，將一個元素2放到最大值$max_so_far變量中，@_中剩下的元素為(3,8,5,10)，然后用foreach循環(huán)遍歷數(shù)組，新數(shù)組中的第一個元素3比2大，又被移到$max_so_far變量中，依次類推，最后10，就是數(shù)組中的最大元素。
