#!/usr/bin/perl -w

sub max{

  my($max_so_far) = shift @_;    #my后面用来声明私有变量，因为perl中默认都为公有变量,shift取列表的头元素，并删除头元素

  foreach (@_)  {

    if ($_ > $max_so_far) {

      $max_so_far = $_;

    }

  }

  $max_so_far;

}

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

print "The max is $maximum\n";