&maximum

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