perl サブルーチン 関数 @_ $_ インデックス 引数リスト

$maximum = &max(3, 5, 10, 4, 6);

sub max {
  my($max_so_far) = shift @_;
  foreach (@_) {
    if ($_ > $max_so_far) {
      $max_so_far = $_;
    }
  }
  $max_so_far;
}

引数リスト @_
引数リストの各要素 $_
関数呼び出し &
関数宣言 sub