#! /usr/bin/perl; 
use utf8; 
 
sub max { 
  my($max_so_far) = shift @_; #數(shù)組中第一個(gè)值，暫時(shí)當(dāng)成最大值。 
  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;