#!/usr/bin/perl -w

# Learning Perl, pg.55
# Busca pelo primeiro elemento maximo em um array
# 18/06/2009

use strict;

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

print "$maximum\n";

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