ハイウォーターラインアルゴリズムのPerl実装（多値比較問題法の解法）

#! /usr/bin/perl; 
use utf8; 
 
sub max { 
  my($max_so_far) = shift @_; # The first value in the array, treat it as the maximum for now. 
  foreach(@_){ # iterate through the array @_ 
  if($_>$max_so_far){ # See if other elements have values larger than $max_so_far. 
  $max_so_far = $_;} #Update the max_so_far variable if there is 
  } 
  $max_so_far; 
} 
 
my $_MaxData = &max(2,3,8,5,10); 
print $_MaxData;