贴上您知道的perl经典算法（最好加上注释）

读《Learnning Perl》时，看到一段CODE：

$maximum = &max( 3, 5, 10, 4, 6 ); sub max {     my ($myx_so_far) = shift @_;     foreach (@_) {         if ( $_ > $max_so_far ) {             $max_so_far = $_;         }     }     $max_so_far; }

书上把这种算法称之为：high-water mask算法：洪水过后，会在岸边留下痕迹。最高处的标记，表明了到达的最高水位。
我想把一些经典算法看熟了，解答问题的时候会方便的多，那就请您贴上一例吧，多谢！