&maximum

sub maximum {
    my ( $maximum_so_far ) = shift @_;
    foreach my $current (@_) {
        if ($current > $maximum_so_far) {
            $maximum_so_far = $current;